Start

Hvordan gør man sådan at hvis brugeren har klikket på en checkbox og så derefter klikker på en ok knap, så starter programmet næste gang windows starter, og hvis ikke han har klikket på den så starter programmet ikke.

Mvh
Jesper

<pre>uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
if CheckBox1.Checked = True then
begin
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce', False);
Reg.WriteString(Application.Title, Application.ExeName);
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
end;</pre>Nu starter programmet når den bruger der er aktiv logger på igen. Hvis det skal virke med alle brugere skal du udskifte HKEY_CURRENT_USER med HKEY_USERS og der skal \\.Default foran \\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce.

Emil Melgaard
emil.melgaard@private.dk[Redigeret d. 01/07-02 17:14:29 af Emil]

Hvor skal stien til programmet stå henne? Skal det du har skrevet der bare sættes ind i en knap?
Mvh
Jesper

Hvor skal stien til programmet stå henne? Skal det du har skrevet der bare sættes ind i en knap?
Mvh
Jesper

Ja, stien til programmet finder den selv ved hjælp af Application.ExeName. Den finder også programmets titel selv med Application.Title ellers kan du erstatte det med 'Title'.

Emil Melgaard
emil.melgaard@private.dk