[F] Eigenes Programm in Autostart schreiben

Hallo ich will mein Programm mit

Code:

---

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?

So:

Code:

---

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.

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:

Code:

---

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;

---

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

@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?

Ja kleiner Fehler von ihm, so sollte es funktionieren:

Code:

---

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;

---

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

Funktioniert einwandfrei, danke ^^

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:

Code:

---

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

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

Ah sorry war n bisschen verpeilt ^^

Der vorherige Code is n bissel älter ^^

Also so sieht es atm aus:

Code:

---

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

---

Das ist zwar jetzt nicht getestet aber so in der art müsste das dann aussehen:

Code:

---

procedure TForm1.CheckBox1Click(Sender: TObject);
var
 Registry: TRegistry;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  if Checkbox1.Checked=true then begin
    Registry.WriteString(ExtractFileName(Application.ExeName), Application.ExeName);   
  end else begin
    Registry.DeleteValue(ExtractFileName(Application.ExeName));
  end;
  Registry.CloseKey;
  Registry.Destroy;
end;

---

jetzt wäre es noch cool wenn es hier ein mod geben würde das den code mit highlighting anzeigt xD

Hab das auch schon in der Art gemacht wenn die Syntax stimmt (hab jetz keine Fehler entdeckt) müsste das funktionieren.

Code:

---

procedure DoAppToRunOnce(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

function IsAppInRunOnce(RunName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);
    Result := ValueExists(RunName);
    CloseKey;
    Free;
  end;
end;

procedure DelAppFromRunOnce(RunName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
    if ValueExists(RunName) then DeleteValue(RunName);
    CloseKey;
    Free;
  end;
end;

procedure DoAppToRun(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

function IsAppInRun(RunName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    Result := ValueExists(RunName);
    CloseKey;
    Free;
  end;
end;

procedure DelAppFromRun(RunName: 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 DeleteValue(RunName);
    CloseKey;
    Free;
  end;
end;

---

Aufrufen könnte ihr das z.B. mit einer Checkbox:

Code:

---

if Checkbox1.Checked then
DoAppToRun('Mein Programm', Application.Exename)
else
if IsAppInRun('Mein Programm') then
DelAppFromRun('Mein Programm');

---

Erst schaut er ob ihr einen Hacken an die Checkbox gemacht habt, ist dsa der Fall schreibe euer PRogramm in den Autostart, habt ihr den Hacken weggemacht, schaue ob euer Programm im Autostart liegt, wenn ja wirds rausgelöscht, wenn nein passiert nichts

OK das ist zwar professioneller, erfüllt aber den gleichen Zweck wie die Prozedur von gORDon_vdLg oder täusch ich mich da?!

Ja, der zweck ist der gleiche... du hast die qual der wahl xD