Programmstanort für RunOnce

T

TS-JC

Erfahrenes Mitglied
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
 
Hallo,

Code: 
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;
 
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
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück