1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

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
 begin
   ShowMessage(SysErrorMessage(GetLastError));
   Exit;
 end;
 while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
   Application.ProcessMessages;
 CloseHandle(Ph);
end;                    

1:

[Fehler] Unit2.pas(39): E2003 Undefinierter Bezeichner: 'FillChar'                    

1:

FillChar(exInfo, SizeOf(exInfo), 0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure ZeroMemory(p:pointer; count:integer);
  var pend: pbyte;
begin
  pend := cardinal(p) + count;
  while cardinal(p) < cardinal(pend) do begin
    pbyte(p)^ := 0;
    inc(p);
  end;
end;