Платные хостинги     Раскрутка сайта     Книги по программированию

Как запустить в Delphi *.exe, Как запустить в Delphi *.exe

- ShellExecute, WinExec, CreateProcessБыла недавно уже такая тема

- Вот пример из нашего ФАК:Пример показывает как из Вашей программы запустить внешнее приложение и подождать его завершения. Код 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(SUInfo);      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;  highlightSyntax('delphiJlNzFk','delphi'); А вот пример вызова этой функции: Код ExecAndWait( 'C:\windows\calc.exe', '', SH_SHOWNORMAL)  highlightSyntax('delphiY0MmQ=','delphi'); Параметр FileName = Имя внешней программы. Параметр Params = Параметры, необходимые для запуска внешней программы Параметр WinState = Указывает - как будет показано окно: Для этого параметра мы можем так же использовать следующие константы: SW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_SHOWNORMAL

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD