uses
 shellapi;

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
{
  See Step 3: Redesign for UAC Compatibility (UAC)
   <a href="http://msdn.microsoft.com/en-us/library/bb756922.aspx" title="http://msdn.microsoft.com/en-us/library/bb756922.aspx">http://msdn.microsoft.com/en-us/library/bb756922.aspx</a>
}
var
 sei: TShellExecuteInfo;
begin
 ZeroMemory(@sei, SizeOf(sei));
 sei.cbSize := SizeOf(TShellExecuteInfo);
 sei.Wnd := hwnd;
 sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpVerb := PChar('runas');
 sei.lpFile := PChar(Filename); // PAnsiChar;
 if parameters <> '' then
   sei.lpParameters := PChar(parameters); // PAnsiChar;
 sei.nShow := SW_SHOWNORMAL; //Integer;
 Result := ShellExecuteEx(@sei);
end;

function VistaExecElevated(FileName, CLParams, Dir : String; var ExitCode: DWORD; const Wait: DWORD = 0): LongWord;
var
shExecInfo : TShellExecuteInfo;
iWaitRes: DWORD;
begin
Result := 0;
if FileName <> '' then
 begin
  FillChar(shExecInfo, SizeOf(shExecInfo), 0);
  shExecInfo.cbSize := SizeOf(shExecInfo);
  {if hHandle <> null then
   shExecInfo.WND := Hhandle;}
  shExecInfo.fMask  := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
  //shExecInfo.hInstApp := NULL;
  shExecInfo.lpVerb := PChar('runas');
  shExecInfo.lpFile := PChar(FileName);
  if CLParams <> '' then
   shExecInfo.lpParameters := PChar(CLParams);
  if Dir <> '' then
   shExecInfo.lpDirectory := pchar(Dir);
  shExecInfo.nShow := SW_SHOW;   {SW_SHOW}
  ShellExecuteEx(@shExecInfo);
  Result := shExecInfo.hInstApp;
  if Result > 32 then
   begin
    // wait on process ?
    if (Wait > 0) then
     begin
      iWaitRes := WaitForSingleObject(shExecInfo.hProcess, Wait);
      // timeout reached ?
      if (iWaitRes = WAIT_TIMEOUT) then
       begin
         //Result := 0;
         TerminateProcess(shExecInfo.hProcess, 0);
       end;
      // get the exitcode
      GetExitCodeProcess(shExecInfo.hProcess, ExitCode);
     end;
    // close handle, because SEE_MASK_NOCLOSEPROCESS was set
    CloseHandle(shExecInfo.hProcess);
   end;
end;
end;