Czy moze mi ktoś napisać jaki błąd popełniam pisząc po implentation i {$R *.dfm} taką procedure:
{wykrycie systemu}
procedure sprawdz_czy_xp();
Reg := TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
Reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion');
JakiSys:=Reg1.ReadString('ProductName');
except
Reg.OpenKeyReadOnly('Software\Microsoft\WindowsNT\CurrentVersion');
JakiSys:=Reg1.ReadString('ProductName');
end;
finally
Reg.Free;
end;
if JakiSys='Microsoft Windows XP' then
begin
ShowMessage('Program jest niekompatybilny z Windows XP!');
Application.Terminate;
end;
end;
a następnie wstawiajac po application.run; takie odwołanie:
sprawdz_czy_xp();
Procedura ma sie uruchamiać im wcześniej tym lepiej i odpowiednio postępować.
Za pomoc z góry dziekuje :)