[Virtual Pascal] Запуск внешнего скрипта на AutoIt с ожиданием его завершения

@Egorka2022 · Регистрация: 20.07.2022

Author24 — интернет-сервис помощи студентам

Есть следующий код консольной программы на Borland Delphi 7, который запускает внешний скрипт на AutoIt из папки, где находится скомпилированная программа (не из рабочей папки), с ожиданием его завершения:

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Forms;
 
function ExecAndWait(const FileName,
  Params: ShortString;
  const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;
 
begin
  ExecAndWait(SysUtils.ExtractFilePath(Forms.Application.ExeName) + '\AutoIt3.exe', '"' + SysUtils.ExtractFilePath(Forms.Application.ExeName) + '\myscript.au3' + '"', SW_SHOWNORMAL);
end.

Нужен эквивалент данного кода на Virtual Pascal (Win32-аналоге Turbo Pascal).

@mr-Crocodile · 25.03.2024, 14:01

Сообщение от Egorka2022

Нужен эквивалент данного кода на Virtual Pascal (Win32-аналоге Turbo Pascal).

вообще ничего не гарантирую.

попробуй такой вариант:

Pascal

program Project1;
 
 
uses
  Windows, SysUtils {Variants, Classes, Forms};
 
 
function ExecAndWait(const FileName,
  Params: ShortString;
  const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  p: Array[0..127] of Char;
  CmdLineS: string;
  CmdLine: PChar;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
 
  CmdLineS := '"' + Filename + '" ' + Params;
  CmdLine := p;
  CmdLine := StrPCopy( CmdLine, CmdLineS );
 
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
 
 
  Result := CreateProcess(nil, CmdLine, nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;
 
var ExePath : string;
begin
  ExePath := ExtractFilePath(ParamStr(0));
  ExecAndWait(ExePath + '\AutoIt3.exe', '"' + ExePath + '\myscript.au3' + '"', SW_SHOWNORMAL);
end.

@bormant · 25.03.2024, 19:38

mr-Crocodile,

Pascal

1
2
3

  CmdLineS := '"' + Filename + '" ' + Params + #0;
  {...}
  Result := CreateProcess(nil, @CmdLineS[1], {...}

	25.03.2024, 19:38

[Virtual Pascal] Запуск внешнего скрипта на AutoIt с ожиданием его завершения

Решение