Re: Fail

From: Netsak (netsak_at_frac.dk)
Date: 12/10/03 

Date: Wed, 10 Dec 2003 19:30:50 +0100

Not that but The failure is "Unidentified TRegistry" must i write something
in under USES?

> I can see a missing ' where the line is
>
> cj
>
>
> "Netsak" <netsak@frac.dk> wrote in message
> news:7FHBb.1468$Vl7.952@news.get2net.dk...
> 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;
>
>
>
>