[Mat_y]

Mat_y, создать чекбокс, в свойстве Visible прописать: »

что-то не работает.... я правильно делаю:?

читать дальше »

Код:

///////////////////Добавляем кнопки - Резервная копия////////////////////////////
begin
  RedesignWizardForm;
MyTask:=TCheckBox.Create(WizardForm);
with MyTask do
begin
Parent:=WizardForm.SelectDirPage;
Caption:='Я хочу создать резервную копию';
Left:=ScaleX(0);
Top:=ScaleY(180);
Width:=ScaleX(400);
Height:=ScaleY(15);
TabOrder:=0;
Checked:=False;
Visible:= not RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#AppID}_is1');
///////////////////Добавляем кнопки - Резервная копия КОНЕЦ////////////////////////////

Если ставлю просто Visible:= true, то само собой все скрывается навсегда

Объект FileSystemObject живет в scrrun.dll, ее и нужно перерегистрировать »

Этот куда вписывать? Просто ошибка на чужом компьютере всплыла.

А размер файла можно получить не только с помощью объекта FileSystemObject, а и с помощью справки. »

Не, у меня это для проверки версии файла...

читать дальше »

Код:

function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;