[F] Eigenes Programm in Autostart schreiben

[terrorzwerg]

Hallo ich will mein Programm mit

procedure TForm1.FormCreate(Sender: TObject);
var regist : tregistry;
begin
 regist:=tregistry.create;
 regist.rootkey:=HKEY_CURRENT_USER;
 regist.openkey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
 regist.writestring('{Name}','{Dateipfad}');
 regist.closekey;
 regist.destroy;
end;

in den Autostart einzutragen. Wenn ich einen bekannten Pfad eintrage funktioniert das auch. Allerdings soll das Programm in der Lage sein seinen aktuellen Pfad selbst zu ermitteln und entsprechend einzutragen, hat jemand ne Idee wie man das realisieren kann?

[K1ngC0bra]

So:

function GetPath( RunName: String ) : String;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    if ValueExists(RunName) then
      Result := ReadString(RunName);
    CloseKey;
    Free;
  end;
end;

Habe schnell die Funktion gebaut, sollte funktionieren. Musst nur wissen wie das Ding heißt.

[gORDon_vdLg]

hey k1ng, hast du dich verlesen oder bin ich nur verpeilt? xD
du lässt ja was auslesen aber er will ja sein eigenes programm pfadunabhängig eintragen. also das würde ich so lösen:

procedure TForm1.FormCreate(Sender: TObject);
var regist:tregistry;
begin
  regist:=tregistry.create;
  regist.rootkey:=HKEY_LOCAL_MACHINE;
  regist.openkey('Software\Microsoft\Windows\CurrentVersion\Run', true);
  regist.writestring(extractfilename(application.exename), extractfilepath(application.exename));
  regist.closekey;
  regist.destroy;
end;

[K1ngC0bra]

Damn mein Fehler sry. Wenn du noch mehr Hilfe brauchst:
http://www.swissdelphicenter.ch/de/showcode.php?id=1157

Nochmal sorry.
Hoffe bin wieder auf einer Höhe mit euch xD

[terrorzwerg]

@gORDon_vdLg Dein Vorschlag hat nen Haken, so wird nur der ordner in dem sich mein Programm befindet beim Start geöffnet, trotzdem thx
Hat jemand noch ne idee?

[K1ngC0bra]

Ja kleiner Fehler von ihm, so sollte es funktionieren:

procedure TForm1.FormCreate(Sender: TObject);
var Regist : TRegistry;
begin
  Regist := TRegistry.Create;
  Regist.RootKey := HKEY_LOCAL_MACHINE;
  Regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  Regist.WriteString(ExtractFileName(Application.ExeName), Application.ExeName);
  Regist.CloseKey;
  Regist.Destroy;
end;

[gORDon_vdLg]

ja damn^^ war grad verpeilt, k1ing hats berichtigt, so wird es gehen...

[terrorzwerg]

Funktioniert einwandfrei, danke ^^

[Sector]

Mhm, geht dies auch mit einer Checkbox?

Also das wenn ein Haken drin ist, dass es dann in den Auostart eingetrage wird, wenn nicht, das es dann eben nicht in dem Autostart drin ist ^^

Also so weit bin ich bis jetzt:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
 Registry: TRegistry;
begin
if Checkbox1.Checked then
 begin
  Registry:=TRegistry.Create;
 end;
end;

Das Problem ist, dass es trotzdem nicht in den Autostart geschrieben wird, an was liegt das, bzw. was muss ich ändern?

Gegoogelt habe ich, nur leider kam nix mit Checkbox und so...

Hoffe ihr könnt mir helfen?

Vielen Dank im voraus


Sector

[gORDon_vdLg]

Das Registry.create reicht natürlich nicht, musst schon den kompletten code schreiben :shock: