Ich würde gerne überprüfen ob eine Application ordentlich gestartet wurde. In diesem Falle ein
mySQL Server...
Delphi-Quellcode:
procedure ShellExecute_AndWait(FileName:
string; Params:
string);
var
exInfo: TShellExecuteInfo;
Ph: DWORD;
begin
FillChar(exInfo, SizeOf(exInfo), 0);
with exInfo
do
begin
cbSize := SizeOf(exInfo);
fMask := SEE_MASK_NOCLOSEPROCESS
or SEE_MASK_FLAG_DDEWAIT;
Wnd := GetActiveWindow();
ExInfo.lpVerb := '
open';
ExInfo.lpParameters := PChar(Params);
lpFile := PChar(FileName);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@exInfo)
then
Ph := exInfo.HProcess
else
begin
ShowMessage(SysErrorMessage(GetLastError));
Exit;
end;
while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0
do
Application.ProcessMessages;
CloseHandle(Ph);
end;
ShellExecute_AndWait('
C:\mysql\bin\mysqld-nt.exe', '
'
Danke schonmal im Vorraus und verzeihung, wenn ich eine etwaige Antwort übersehen habe...