Помогите Кто-нибудь!!!!!
Скажите пожалуйста по понятнее и по подробнее, как сделать так,чтобы если я, например, нажимаю на кнопку, запускался exe-файл с заранее заданным мной путем!
Я уже второй год не могу найти ответ на этот вопрос.
Я перечитал уйму всяких книг и статей в инете, но ничего не нашел!!!!!
Помогите кто-нибудь
Захаров Александр [email protected]



Модератор: Заголовок не отражает суть темы. В связи с нарушением правил форума тема закрыта. В следующий раз давайте осмысленный характер названию.

Это сообщение отредактировал(а) Vit - 24.8.2004, 17:46

Модератор: Название темы должно отражать ее суть!

Цитата

Я уже второй год не могу найти ответ на этот вопрос.

А стоит ли тогда вообще этим заниматься?

Такое делает функция

ShellExecute

Туда и путь передаёшь и параметры

Можещь попробовать ф-ю WinExec, глянь в хелпе, там написано, не разберешься, пиши. Она попроще.

WinExec не надо -- она оставлена только для совместимости:

Цитата

This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

да и не всегда то что проще -- лучше

Можно еще при помощи CreateProcess, она понавороченнее будет, но и посложней чуть, ее описание тоже в хелпе Delphi должно быть. Удачи

Цитата

по понятнее и по подробнее

, используя ShellExecute:

Код

uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin  ShellExecute(Handle, nil, 'c:\winnt\notepad.exe', nil,    'c:\winnt\', SW_SHOWNORMAL); end;

1й параметр - дескриптор окна, из которого вызывается ShellExecute (насколько
я понял дочерний процесс будет иметь возможность выводить в это окно, если ему это понадобится, message box's с сообщением об ошибке)
2й параметр - что надо сделать с файлом/каталогом, указанном в 3м параметре:
'open'
3й параметр=файл - запустить файл
3й параметр - файл, который надо запустить
4й параметр - параметры, передаваемые executable-файлу
5й параметр - каталог по умолчанию
6й параметр - как отобразить окно (SW_SHOWNORMAL, SW_SHOWMAXIMIZED,
SW_SHOWMINIMIZED)

Оффтоп:
Ууу... крутой программист! Два года! Я бы уже сдох!

Ещё пример:

Код

var  si:TStartUpInfo;  pi:TProcessInformation; begin  ZeroMemory(@si, SizeOf(si));  si.cb:=SizeOf(si);  si.wShowWindow:=SW_Normal;  si.dwFlags:=STARTF_USESHOWWINDOW;  CreateProcess(nil, 'C:\autoexec.bat', nil, nil, False, IDLE_PRIORITY_CLASS or DETACHED_PROCESS, nil , nil, si, pi); end;

Стоит нажать F1 и почитать о вышеуказанных функциях.

вот это самое лучшее ;)

uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'c:\winnt\notepad.exe', nil,
'c:\winnt\', SW_SHOWNORMAL);
end;

Это сообщение отредактировал(а) vadimich - 23.8.2004, 05:53

vadimich
Всё зависит от цели запуска программы.