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;
mozda ima neka greskica, iz glave je...bitna je poenta :)
Ride the rainbow, crack the sky