Запуск програмы на выполнение

← →
LoRd1 © (2007-05-18 23:24) [0]

Что надо прописать в событии onclick компонента button1 чтобы файл chees.exe (находяшийся в d:\game\chees.exe) запустился??

← →
turbouser © (2007-05-18 23:36) [1]

uses ShellAPI
...
ShellExecute()
...
Пример даже в местном FAQ есть. Должен быть :)

← →
LoRd1 © (2007-05-19 00:42) [2]

А пример кода можеш привести?? а то я не совсем въехал на счет uses ShellAPI

← →
turbouser © (2007-05-19 00:47) [3]

> LoRd1 © (19.05.07 00:42) [2]

Могу. Я все могу. Сколько готов отдать за пример кода?
ps
В конце-то концов, ну сколько можно...

← →
LoRd1 © (2007-05-19 00:49) [4]

хотя про USES SHELLAPI я разбрался (в uses добавил shellapi, на на событии onclick ввел ShellExecute("1.exe")), но всеравно выдало такое:

[Error] Unit1.pas(29): Incompatible types: "HWND" and "String"

← →
Германн © (2007-05-19 01:13) [5]

> LoRd1 © (19.05.07 00:49) [4]

Читай справку прежде чем задавать вопросы.
Иначе снимем штаны и ремнём, ремнём!
P.S. Отмазки типа "справка не установлена" или "не знаю английский" не принимаем.
P.P.S. И не говори, что темы в "Начинающие". Даже здесь нужно и свою голову задействовать.

← →
LoRd1 © (2007-05-19 01:21) [6]

Народ ну я ж не прашу многого помогите лаймеру освоить азы!!

напишите пример кода для запуска какой нибуть екзехи, которая есть на компе (ну например winamp.exe - c:\program files\winamp\winamp.exe)

зараннее спасибо :)

← →
Германн © (2007-05-19 01:29) [7]

> LoRd1 © (19.05.07 01:21) [6]
>
> Народ ну я ж не прашу многого помогите лаймеру освоить азы!
> !
>
> напишите пример кода для запуска какой нибуть екзехи, которая
> есть на компе (ну например winamp.exe - c:\program files\winamp\winamp.
> exe)
>

Освоить азы или что-тлибо ещё никак не получится по шпаргалке. А именно этим "пример кода", который ты просишь и является. По шпаргалке можно наудачу что-нибудь сдать (контрольную, зачёт, экзамен etc.) Сдать и сразу забыть, как страшеый сон.

← →
Anatoly Podgoretsky © (2007-05-19 11:38) [8]

> LoRd1 © (19.05.07 01:21) [6]

Ты уже посмотрел справку?
Поиском по форуму уже восспользовался?
Если нет, то тебе в форум Работа с озвученной ценой.

← →
si (2007-05-19 12:52) [9]

> Народ ну я ж не прашу многого помогите лаймеру освоить азы!
> !
>
> напишите пример кода для запуска какой нибуть екзехи, которая
> есть на компе (ну например winamp.exe - c:\program files\winamp\winamp.
> exe)

Ну в конце концов открой Архангельского. У него этот кусок описан и причем очень подробно.

← →
Плохиш © (2007-05-19 13:38) [10]

> LoRd1 © (19.05.07 01:21) [6]
> Народ ну я ж не прашу многого помогите лаймеру освоить азы

Ламерам здесь делать нечего.

← →
si (2007-05-19 15:50) [11]

> Ламерам здесь делать нечего.

Абсолютно недопустимый выкрик. Мы все Ламеры - кто то больше, кто меньше.

unit Unit1; interface uses ShellAPI; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // Запуск програмы на выполнение procedure TForm1.Button1Click(Sender: TObject); Var St:Array[0..255] of char; begin ShellExecute(Handle,"open",StrPCopy(St,Edit1.Text),nil,nil,SW_SHOW); end; end.
В Edit1 введёшь к примеру d:\game\chees.exe потом нажнёшь на кнопку и воаля! Файл chees.exe запустится!
P.S. Чтобы не набирать путь в Edit, можно использовать компонент FilenameEdit1, который есть в RXLib библиотеке, ну или сам смотри что тебе лучьше подойдёт, в зависимости от ситуации, потребностей, возможностей.

> LoRd1 © (19.05.07 01:21) [6]

> kingsoft © (20.05.07 01:53) [12]

Ну вот ты наконец получил шпаргалку от твоего ровесника. Ты думаешь, что эта шпаргалка позволит тебе освоить "азы"? Да этой шпаргалке уже лет эдак 10, как нужно её забыть и не вспоминать!

> Германн © (20.05.07 02:09) [13]

> Да этой шпаргалке уже лет эдак 10, как нужно её забыть
> и не вспоминать!

Вы имеете в виду, что не надо использовать shellexecute?

← →
Правильный Вася (2007-05-22 12:52) [15]

Var St:Array[0..255] of char;
StrPCopy(St,Edit1.Text)
уродлство

← →
Робинзон (2007-05-22 13:19) [16]

Только не забудь в uses прописать
ShellAPI;

procedure TForm7.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, "D:\Проверка\instal.exe", nil,nil, SW_SHOWNORMAL);

end;

Запуск програмы на выполнение Найти похожие ветки