[Tco 03]

EvilAlex
Мда... Вообщем вот, смотрите. Чтобы сделать проверку на что-то, нужно сначала создать такую функцию. Пишем:

[Registry]
Root: HKCU; SubKey: Software\Webzen\Mu\Config; ValueType: dword; ValueName: Resolution; ValueData: 0; Check: NewRadioButton1Result;

[code]
var
NewRadioButton1: TNewRadioButton;

Вот эта функция на проверку чего-либо!
////////////////////////////////////////////////
function NewRadioButton1Result: Boolean;
begin
if NewRadioButton1.Checked
then
Result:= True;
end;
////////////////////////////////////////////////

Создаём радиобаттон для этой функции:

procedure InitializeWizard();
begin
NewRadioButton1 := TNewRadioButton.Create(WizardForm);
with NewRadioButton1 do
begin
Parent := WizardForm.WelcomePage;
Left := ScaleX(10);
Top := ScaleY(30);
Width := ScaleX(113);
Height := ScaleY(17);
Caption := '640x480';
end;
end;