Fail
From: Netsak (netsak_at_frac.dk)
Date: 12/10/03
- Next message: Ian Patton: "Cursors"
- Previous message: Christakis John: "Re: It's simple..."
- Next in thread: Christakis John: "Re: Fail"
- Reply: Christakis John: "Re: Fail"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Wed, 10 Dec 2003 17:15:42 +0100
CitrusWhy dosn't this work?
The failure is Unidentified TRegistry
procedure SetStartup;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True)
then
begin
Reg.WriteString('programtitle, '"C:\The\Path\_With_\Quotes.exe"');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
- Next message: Ian Patton: "Cursors"
- Previous message: Christakis John: "Re: It's simple..."
- Next in thread: Christakis John: "Re: Fail"
- Reply: Christakis John: "Re: Fail"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
