Kan ikke bruge winexec til at kalde program som kræver administrator rettigheder

Ups, har jeg beskrevet noget som ikke kan lade sig gøre? Eller er der ikke nogen nørder tilstede :-)

Uha gør jeg noget forkert ?

Da jeg ikke har modtaget nogen indlæg omkring mit problem, opfatter jeg det som det ikke på nogen måde er muligt, at gøre det som jeg har beskrevet, hvis der er noegn som skulle have en work around til brug af CMD, så er de meget velkomne

spil2vind: Det er ærgerligt når der ikke kommer respons på ens spørgsmål.

http://www.bobswart.nl/weblog/Blog.aspx?RootId=5:1442 - men Bob har ikke en bedre løsning end din.

Det her fandt jeg på Experts-exchange men løsningen på spørgerens problem kunne jeg desværre ikke se:


Endelig kan dette her måske få dig videre: http://www.delphipages.com/forum/showthread.php?t=146756

Håber det måske kan hjælpe. Du kan måske finde lidt mere på Google (+delphi "run as administrator")

Tak hrc, afprøver svaret fra expert exchange, det ser ok ud :-)

Har afprøvet nedenstående og der sker intet. Man får ikke ikke nogen værdi for shExecInfo.hInstApp som er større end 32

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 := PWideChar('runas');
  shExecInfo.lpFile := PWideChar(FileName);
  if CLParams <> '' then
    shExecInfo.lpParameters := PWideChar(CLParams);
  if Dir <> '' then
    shExecInfo.lpDirectory := PWideChar(Dir);
  shExecInfo.nShow := SW_HIDE;  {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;

Igen tak hrc, du hjalp mig på vej, smid et svar, nedenstående virker korrekt, kan ikke lige gennemskue hvorfor ovenstående ikke lige virker.

function RunAsAdmin(const Path, Params: string): Boolean;
var
  sei: TShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := PWideChar('runas');
  sei.lpFile := PWideChar(ExtractFileName(Path));
  sei.lpDirectory := PWideChar(ExtractFilePath(Path));
  sei.lpParameters := PWideChar(Params);
  sei.nShow := SW_SHOWNORMAL;
  Result := ShellExecuteEx(@sei);
end;

Skal vi ikke se at få dette spørgsmål lukket HRC, send et svar

Lukker sagen