Programm mit Adminrechten starten:Fail!

[donauwelle]

@jaenicke wenn er keine Adminrechte bekommt, dann könnte er ja trotzdem in die Registry einblicken (Read) aber eben nichts ändern:
Gute Idee hab sogar eine Funktion dazu gefunden:

Code:

function IsNT: boolean;
var OsVersion: TOSVersionInfo;
begin
  OsVersion.dwOSVersionInfoSize := sizeof(OsVersion);
  if( GetVersionEx(OsVersion) = true ) then
    Result := (OsVersion.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsNT = true then
    showmessage('This is Windows NT')
  else
    showmessage('This is NOT Windows NT');
 
end;

Zitat:

... aber nur wenn du auf JA drückst. Bei NEIN wird die Ausführung abgebrochen.

ja leider