Java Anwendung mit Adminrechten starten...

[Mavarik]

Hallo!

Kann mir jemand sagen, wie ich aus einen Delphi Programm eine Java Anwendung mit Admin-Rechten starten kann?

Delphi-Quellcode:

Function runAsAdmin(hWnd: HWND; aFile, aParameters: Ansistring):Boolean;
var shellexec: TShellExecuteInfoA;
begin
 Result:=TRUE;
 try
  FillChar(shellexec, SizeOf(shellexec), 0);
  shellexec.cbSize := sizeof(shellexec);
  shellexec.Wnd    := hWnd;
  shellexec.fMask  := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  shellexec.lpVerb := 'runas';
  shellexec.lpFile := PAnsiChar(aFile);
  shellexec.lpParameters := PAnsiChar(aParameters);
  shellexec.nShow  := SW_SHOWNORMAL;
  if not ShellExecuteEX(@shellexec) then
   Result:=FALSE;
 except
 end;
end;

Funktioniert NICHT!

Mavarik