[Raz3r]

Прошу помочь с вопросами.

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

1. Подскажите как сделать второй чекбокс с такими же параметрами?

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

var
DpoLabel: TLabel;
dpo :HWND;
hBtn: TObject

function DpoChecks: Boolean;
begin
Result:= BtnGetChecked(dpo);
end;

procedure DpoOnClick(hBtn: TObject);
begin
BtnSetChecked(dpo, not BtnGetChecked(dpo));
if BtnGetChecked(dpo) then dpolbl.Font.Color:= ${#Color} else dpolbl.Font.Color:= clgray;
end;

procedure DpoOnClick1(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if Check then DpoLabel.Font.Color:=${#Color} else DpoLabel.Font.Color:=-16777199;
end;

procedure DpoLblClick(hBtn: TObject);
begin
BtnSetChecked(dpo, not BtnGetChecked(dpo));
DpoOnClick1(dpo);
end;

procedure Wzf;
DpoLabel:=TLabel.Create(WizardForm);
with DpoLabel do
begin
Top:= ScaleY(207);
Left:= ScaleX(405);
Width:= ScaleX(400);
Height:= ScaleY(15);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Arial';
Font.Size:= 10
Font.Style := [fsBold];
Font.Color:=${#Color};
Transparent:= true;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:DPO}');
OnClick:= @DpoLblClick;
end;

2. Какой ключ указать в командной строке, чтоб автоматический запустилась установка DirectX с отображением прогресс-бара. Ввожу /SILENT установка проходит полностью скрытой.
3. Как узнать где в реестре Steam прописывает пути к файлам игр? Собираюсь сделать автоустановку в эту библиотеку.
Извините что вопросами засыпал, но я лазил в гугле и ничего вразумительного не нашел, мож здесь кто знает?