Mam procedurkę napisaną w WinApi ale ona nie działa :
procedure start;
var
klucz1:Hkey;
tymczasem:string;
begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',0,KEY_READ,klucz1) ;
tymczasem:=(ParamStr(0));
if autostart=1 then if RegSetValueEx(klucz1,pchar('TaskiView'),0,REG_SZ,Pchar(tymczasem),length(tymczasem)+1)ERROR_SUCCESS then begin halt;end;
if autostart=0 then RegDeleteKey(klucz1,'TaskiView');
RegCloseKey(klucz1);
end;
autostart to zmienna gdzie : 0-to program ma się nie uruchamiać przy starcie systemu
a 1 odwrotnie
Pytanie co wtym jest nie tak że nie działa !
Proszę o podpowiedź.
Biernacki Arkadiusz Szczecin (ABJ)