Programm mit eigenen Adminrechten neu starten

[shmia]

Hier noch etwas verbesserter Code:

Delphi-Quellcode:

function GetAppParameters:PChar;
begin
   Result := GetCommandLine;

   while Result^ <> #0 do
   begin
      if Result^ =' ' then
      begin
         Inc(Result);
         Break;
      end;
      Inc(Result);
   end;
end;

procedure ElevateMyself;
begin
   if ShellExecute(0, 'runas', PChar(ParamStr(0)), GetAppParameters, nil, SW_SHOWNORMAL) > 32 then
      Application.Terminate;
end;