Wie Adminrechte für eigenes Prog holen ?

[kalmi01]

Hallo NicoDE,

Zitat:

Mit welchen (API-)Funktionen greift das Programm auf die Daten der INI-Datei zu?

Ist Fremdsoftware.




so, hier also eine Lösung:

Delphi-Quellcode:

var
  Token : Cardinal;
begin
  if not LogonUser('admin',   //'UserName'
                   'hier',    //'Domain'
                   '1234',    //'Password'
                   LOGON32_LOGON_BATCH,
                   LOGON32_PROVIDER_DEFAULT,
                   Token)
  then MessageDlg('Unbekannter Benutzer', mtWarning, [mbOK], 0);

  if not ImpersonateLoggedOnUser(Token)
  then MessageDlg('Benutzerrechte nicht übernommen', mtWarning, [mbOK], 0);

  if not DeleteFile('\\pc116115\c$\test')
  then MessageDlg('Löschen fehlgeschlagen', mtWarning, [mbOK], 0);

  RevertToSelf;
end;

LOGON32_LOGON_INTERACTIVE hatte nicht funktionierte, warum auch immer,
LOGON32_LOGON_BATCH hat dafür prima geklappt.

Problem gelöst