Versuch' mal:
Delphi-Quellcode:
ShellExecute(0, 'runas', PChar(ParamStr(0)), GetCommandLine, nil, SW_SHOWNORMAL);
Application.Terminate;
und sach Bescheid ob es funktioniert.
Das würde mich nämlich auch interessieren, aber ich habe gerade kein Vista/Win7 zur Hand.