Moin Gutes und tolles 2014
Hallo ich habe diese tolle Funktion
ich glaube von hier.
Meine Frage
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
CmdShow != SW_SHOW;
Gibt es eine Möglichkeit den Text abzufangen der kurzweilig in der COMMAND Box
angezeigt wird, für Debug Zwecke.
Delphi-Quellcode:
function ShellExecAndWait(const FileName, Directory, Parameters, Verb: string; CmdShow: Integer): Boolean;
var
SEI: TShellExecuteInfo;
begin
FillChar(SEI, SizeOf(SEI), #0);
SEI.cbSize := SizeOf(SEI);
SEI.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
SEI.lpFile := PCharOrNil(FileName);
SEI.lpDirectory := PCharOrNil(Directory);
SEI.lpParameters := PCharOrNil(Parameters);
SEI.lpVerb := PCharOrNil(Verb);
SEI.nShow := CmdShow;
Result := ShellExecuteEx(@SEI);
if Result then
begin
WaitForInputIdle(SEI.hProcess, INFINITE);
WaitForSingleObject(SEI.hProcess, INFINITE);
CloseHandle(SEI.hProcess);
end;
end;
Hall Admin kannst Du bitten den Rechtschreibfehler in der Überschrift korrigieren