library shellx;

uses
  windows;
//
// call execute('prog', icond)
//
procedure execute(CommandLine: pchar; var ICond: integer); stdcall;
var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
  ExitCode : DWORD;
begin
  GetStartupInfo(StartupInfo);
  ICond := -1;
  if not CreateProcess(
    nil, CommandLIne,
    nil, nil, TRUE, NORMAL_PRIORITY_CLASS,
    nil, nil,
    StartupInfo, ProcessInformation) then exit;

  WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
  GetExitCodeProcess(ProcessInformation.hProcess, ExitCode);
  ICond := ExitCode;
end;

exports
  execute name '_EXECUTE@8';

end.