Programmstanort für RunOnce

[TS-JC]

hi all
wie kann ich in der registry in runonce mein programm zu laufen kriegen?
woher weiss ich wo es liegt?
wie ich den schlüssel und so anlege weiss ich nur nicht wie ich feststellen kann in welchem verzeichnis meine exe liegt damit sie aufgerufen wird
thx für hilfe

 

[Arne Buchwald]

Hallo,

uses Registry;
procedure speichern_in_der_registry;
var reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.Rootkey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true); //bei true wird der Schlüssel erstellt, falls er noch nicht existiert
  reg.WriteString('Programm_Name',Application.ExeName);
  reg.free;
end;

procedure lesen_aus_der_registry;
var reg: TRegistry;
    s  : string;
begin
  reg:=TRegistry.Create;
  reg.Rootkey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
  s:= reg.ReadString('Programm_Name');
  reg.free;
end;

procedure loeschen_des_Eintrags;
var reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
  reg.DeleteValue('Programm_Name');
  Reg.Free;
end;

 

[TS-JC]

also kriege ich mit Application.ExeName den standort meiner exe-datei raus?

ich werds mal so versuchen wenns nciht klappt schreib ichs nochmal

thx dafür

 

[Arne Buchwald]

Hallo,

hab' i.M. kein Delphi installiert, aber Application.Exename dürfte richtig sein.

Viel Erfolg,

 

[TS-JC]

jo war richtig BIG THX dafür

----------
---
BETA-Test:
http://www.piranho.com/home/boards/...id=28677&xid=36093619789fd9b70701ac32d5742557