Запуск внешней программы

@Башир · Регистрация: 18.05.2010

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

Нашел пример с интернета, подставил свои данные но код не работает, просто тупо ничего не запускаеется, что не так?

Delphi

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
  Handle:Integer;
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;
 
procedure TFormMain.Button_NET_FrameworkClick(Sender: TObject);
begin
  ExecAndWait('dotNetFx40_Client_x86_x64.exe', '', SW_SHOWNORMAL)
end;

Добавлено через 55 секунд
Да и еще у меня OS Windows 7, Среда разработки Embercadero RAD Sutio XE2

Добавлено через 26 минут
Кое что прояснилось, во первых надо дать полный путь, измени код теперь запускается но не совем !!! запускается любая другоя программа но эта видимо требует права админа и что то тут надо подправить.

Delphi

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
  SecurityAttributes : PSecurityAttributes;
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;
 
procedure TFormMain.Button_NET_FrameworkClick(Sender: TObject);
begin
  ExecAndWait(ExtractFilePath(Application.ExeName) + 'dotNetFx40_Client_x86_x64.exe', '', SW_SHOWNORMAL)
end;

@notsliva · 25.06.2012, 21:51

Зачем такие сложности, если нужно просто запустить *.exe или другой файл?

uses ShellAPI;
ShellExecute(Handle, 'open', 'your_file', nil, nil, SW_RESTORE);

@dogvill · 25.06.2012, 23:02

Записать в Uses ShellApi;

и написать код например при нажатии на кнопку

ShellExecute (handle,'open','Что открить','','', sw_show);

@Башир · 26.06.2012, 00:06 **[ТС]**

Просто я делаю установщик, и надо чтобы запускался только один процесс, а то пользователь может нажать даже дважды или запустить несколько программ одновременно.

Добавлено через 1 минуту
В принципе я нашел решение, надо сам эту программу запустить с правами админа

@dondublon · 26.06.2012, 08:26

CreateProcess запускает процесс с теми же правами, которые у запускающего.

ShellExecute - штука более общая, она выполняет команду ОС, которая, вообще говоря, не обязана запускать процесс. Если ты с ней попробуешь запустить процесс - UAC спросит права (если потребуются).

кроме CreateProcess есть еще CreateProcessAsUser .

@vadim23409 · 26.05.2013, 12:45

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

Записать в Uses ShellApi;
и написать код например при нажатии на кнопку
ShellExecute (handle,'open','Что открить','','', sw_show);

а если у меня есть переменная типа string и путь к файлу пишется так: path+'data/1.exe' , то почему это не работает:

Delphi

1	ShellExecute (handle,'open', path+'data/1.exe','','', sw_show);

или по-другому нужно?

@volvo · 26.05.2013, 12:54

Delphi

1	ShellExecute (handle,'open', PChar(path+'data/1.exe'),'','', sw_show);

Запуск внешней программы

Решение

Решение

@notsliva 15 / 15 / 7 Регистрация: 25.06.2012 Сообщений: 95
	25.06.2012, 21:51	2
	Зачем такие сложности, если нужно просто запустить *.exe или другой файл? uses ShellAPI; ShellExecute(Handle, 'open', 'your_file', nil, nil, SW_RESTORE); 0

@dogvill 13 / 13 / 3 Регистрация: 30.01.2012 Сообщений: 40 Записей в блоге: 3
	25.06.2012, 23:02	3
	Сообщение было отмечено как решение Решение Записать в Uses ShellApi; и написать код например при нажатии на кнопку ShellExecute (handle,'open','Что открить','','', sw_show); 3

@Башир 215 / 215 / 20 Регистрация: 18.05.2010 Сообщений: 865
	26.06.2012, 00:06 [ТС]	4
	Просто я делаю установщик, и надо чтобы запускался только один процесс, а то пользователь может нажать даже дважды или запустить несколько программ одновременно. Добавлено через 1 минуту В принципе я нашел решение, надо сам эту программу запустить с правами админа 0

@dondublon 4640 / 2056 / 363 Регистрация: 17.03.2012 Сообщений: 10,139 Записей в блоге: 6
	26.06.2012, 08:26	5
	CreateProcess запускает процесс с теми же правами, которые у запускающего. ShellExecute - штука более общая, она выполняет команду ОС, которая, вообще говоря, не обязана запускать процесс. Если ты с ней попробуешь запустить процесс - UAC спросит права (если потребуются). кроме CreateProcess есть еще CreateProcessAsUser . 0

	26.05.2013, 12:54