Start eller ikke start

brug den her :

procedure RunOnStartup(sProgTitle, sCmdLine : String);
var
  aKey : String;
begin
  With TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    aKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
    OpenKey(aKey,false);
    if sCmdLine <> '' then
      WriteString(sProgTitle, sCmdLine)
    else
      DeleteKey(sProgTitle);
  finally
    free;
  end;
end;


Hvis du vil have det slået fra bruger du blot en tom streng som sCmdLine

Jens B

Det skal jo kun være hvis brugeren har sat et kryds i afkrydsningsfeltet

eller bare :

uses
  Registry;
var
  aCommand : array [boolean] of String = ('', 'Project1.exe');

procedure RunOnStartup(sProgTitle, sCmdLine : String);
var
  aKey : String;
begin
  With TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    aKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
    OpenKey(aKey,false);
    if sCmdLine <> '' then
      WriteString(sProgTitle, sCmdLine)
    else
      DeleteKey(sProgTitle);
  finally
    free;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  RunOnStartup('Mit Heste Project', aCommand[CheckBox1.Checked]);
end;


Jens B

husk der skal være fuld sti på dit project.

Jens B

Borrisholt>

JEg spørger lige dumt!! WriteString(sProgTitle, sCmdLine) overskriver den eksisterende key, eller tilføjer den endnu en key med samme indhold ?
Benson

Den overskirver

Jens B

Hvad skal stå hvor?? Hvad skal der stå i min checkbox og hvad skal der stå i min ok knap?

se mit svar fra klokken 15:21

Jens B

hvad er det procedure RunOnStartup hvor skal det stå? Hvis nu jeg har det sådan her:
Dette er knappen:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Og her er CheckBoxen:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

end;

Hvad skal så stå hvor?

så skal du sq bare kopiere det jeg skrev !

Jens B

Jeg er nybegynder så jeg ved ikke hvor det skal kopires hen.

jammen det jeg skrev 15:21 kopierer du blot ind i dit projekt så kører det.

Jens B