Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Открыть ЕХЕ файл [D5, Win95/98]

Rozumovsky © (2002-06-13 17:31:00)
Пожалуйста помогите чайнику, как с помощью кнопки открыть (выполнить) другой исполняемый ехе файл с такой-то директории.
Буду очень признателен.

Кулюкин Олег (2002-06-14 08:23:00) [1]
2 VID © (14.06.02 00:11)
> кстати, MICRO$OSF - трудился, или трудилась ?
Это компания- женский род, значит "трудилась" :)
Хотя иногда неверится :)))

VID (2002-06-14 00:11:00) [2]
TO Rozumovsky:
1. Двожды щёлкнуть на значок EXE - Файла, предварительно открыв папку, его содержащую
2. Вызвать окно RUN (Start+R) и указав имя исполняемого файла, нажать Ok(ENTER)
3. вызвав Command Prompt, указать имя Exe-файла, и нажать ENTER
4. на рабочем столе, создать ярлык для EXE-файла, а в свойствах ярлыка, в свойстве ShortCut key, выбрать комбинацию клавиш, нажать Ок, и вызывать EXE-Файл, нажатием на эту комбинацию.

И НИ В КОЕМ СЛУЧАЕ НЕ ИСПОЛЬЗУЙ ФУНКЦИИ WINEXEC И SHELLEXECUTE !!!! :))) Не зря же MICRO$OFT так трудился ! :)))

PS: кстати, MICRO$OSF - трудился, или трудилась ?

Alessio (2002-06-13 23:21:00) [3]
Ещё можно использовать функцию
ShellExecute(Application.MainForm.Handle,open, PChar("notepad.exe"), nil, nil, SW_ShowNormal);

Application.MainForm.Handle - запуск идёт с главной формы.
open - открытие exe"шника или если, к примеру, это файл с расширением doc, то откроется Word.

Для использование этой функции нужно в разделе USES написать библиотеку ShellApi.

Song (2002-06-13 19:45:00) [4]
2BJValentine © (13.06.02 19:42)
PChar нужен для переменной. Если стока указана в явном виде дополнительной конвертации не требуется, компилятор всё сделает сам.

BJValentine (2002-06-13 19:42:00) [5]
Ага, а ещё точнее, для правильности

WinExec(pchar("c:\windows\notepad.exe"),SW_SHOW);

Игорь Шевченко (2002-06-13 17:44:00) [6]
procedure TForm1.Button1Click (Sender : TObject);
begin
WinExec("c:\windows\notepad.exe");
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »