string in regedit hauen

[G G]

hi,
wie lege ich einen string in zb. HKEY_LOCAL_MACHINE\SOFTWARE\ und stell dann noch den pfad zb auf c:/ und gib dem string auchnoch einen namen?

wie progt man so ein prog?

[Christian Seehase]

Moin GG,

schau Dir mal in der OH TRegistry an, oder such' mal hier danach.

[Nicolai1234]

Hier hat fauxx (ehem. User) mal eine vereinfachung geschrieben! Also z.B. strtoreg

[G G]

hm hab einiges probiert aber es haut nicht so wirklich hin, ich will nur nen schlüssel reinschreiben:

tRegistry.Create.OpenKey('HKEY_LOCAL_MACHINE\SOFTW ARE\Microsoft\Windows\CurrentVersion\Run',true);
TRegistry.Create.CreateKey('Super_prog');

und dieses mit dem pfad c:/super.exe

so das es halt dann auto startet, nur ich krieg des einfach net auf die reihe, bei uses hab ich auch schon "Registry" reingetippt.

wie gehts den richtig, danke dp team

[Thorben86]

Einfach so:

Delphi-Quellcode:

var reg:TRegistry;

reg:=TRegistry.Create;
reg.rootKey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.writestring('name',verzeichnis+'Programmname');
reg.closeKey;
reg.free;

Und nicht vergessen, die unit Redistry mit einzubinden

[Luckie]

Zitat von Thorben86:

Einfach so:

Nun ja. Von Fehler abfangen und Ressourcen schützen hältst du wohl nicht viel.

Delphi-Quellcode:

reg:=TRegistry.Create;
try
  reg.rootKey:=HKEY_LOCAL_MACHINE;
  if reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then  // OpenKey ist eine Funktion!!!
  begin
    reg.writestring('name',verzeichnis+Programmname);
    reg.closeKey;
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
finally
  FreeAndNil(reg);
end;

Zu beachten ist noch, das nicht jeder beliebige Benutzer Schreibrechte in HKLM hat.