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