Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   in die Registry schreiben (https://www.delphipraxis.net/183359-die-registry-schreiben.html)

strom 5. Jan 2015 15:45

in die Registry schreiben
 
Hallo,
möchte was in die Registry schreiben, was soweit auch funktioniert.:?
Nur für ca. 30sec. kommt immer die Meldung in der Form1 (Keine Rückmeldung) ???

Warum? Bin als Administrator angemeldet!

Delphi-Quellcode:
procedure TForm1.Reg1Click(Sender: TObject);
var
  reg : TRegistry;
    s : String;
begin
 if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', s ) then
  begin
    if s = 'test' then begin
  reg := tregistry.create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('LogUser', paramstr(0));
    CloseKey;
    free;
 end;
end;
  end;
end;

Bjoerk 5. Jan 2015 16:35

AW: in die Registry schreiben
 
Das Programm muß soweit ich weiß ab Vista dann mit Adminrechren gestartet werden.

Bernhard Geyer 5. Jan 2015 17:05

AW: in die Registry schreiben
 
Zitat:

Zitat von strom (Beitrag 1285420)
Warum? Bin als Administrator angemeldet!

Du ja - dein von dir gestarteter Prozess i.d.R. aber nicht.
D.h. schreiben unter HKEY_LOCAL_MACHINE wird nicht gehen da hierfür der Prozess Adminrechte benötigt.
Und solche Schlüssel wie "Run" werden auch gerne zusätzlich von Virenscanner geschützt so das hier das Schreiben (auch wenn es Windows-Rechte-Technisch evtl. klappen müsste) es nicht geht - Vor ca. 2 Jahren mit dem Autostart-Eintrag von Windows im Userprofil den Fall gehabt.

Luckie 5. Jan 2015 20:05

AW: in die Registry schreiben
 
OpenKey hat einen Rückgabewert. Mit einer gescheiten Fehlerbehandlung wüsstest du warum es nicht funktioniert.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz