Sta treba da dodam programu pa da se on startuje kada se podize sistem?
startovanje sa windowsom
Zaključano
Zakačeno
Upises u registry u
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run
naziv svog programa i path.
Pogledaj API funkcije RegCreateKey, RegSetValue i slicne ako ne znas kako se pise po registriju.
ss.
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run
naziv svog programa i path.
Pogledaj API funkcije RegCreateKey, RegSetValue i slicne ako ne znas kako se pise po registriju.
ss.
Potpis
When something is hard to do, then it's not worth doing.
Code:
Uses Registry;
...
procedure Registruj;
var Reg: TRegistry
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run', False);
Reg.WriteString('MojProgram', ParamStr(0));
Reg.CloseKey;
finally
Reg.Free;
end
end;
Uses Registry;
...
procedure Registruj;
var Reg: TRegistry
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run', False);
Reg.WriteString('MojProgram', ParamStr(0));
Reg.CloseKey;
finally
Reg.Free;
end
end;
mozda ima neka greskica, iz glave je...bitna je poenta :)
Potpis
OK, tu proceduru ubacim u kod, ali gde da je pozovem?
Pa recimo, u FormCreate ili na neko drugo mesto, sve zavisi kako si napravio program...
A tu gde si stavio "moj program", tu kucam putanju? Ne radi tako!
Citat:
dejov: A tu gde si stavio "moj program", tu kucam putanju? Ne radi tako!
Pa kako radi?
Dobio si vec sasvim dovoljno informacija da mozes sam da provalis u cemu je problem. Pa ako vec ima neka greska u ideji ili koodu koji je postavljen, a ti nam prenesi o cemu se tacno radi.
ss.
Potpis
When something is hard to do, then it's not worth doing.
MojProgram ti je samo ime key-a koji kreiras... Nebitno za sistem. Gde ti stoji ParamStr(0), tu kucaj putanju do programa koji zelis da se startuje uz sistem (ParamStr(0) vraca putanju do tvog programa <=> Application.ExeName)