Надо чтобы при нажатии на кнопку открывался файл setup.exe

@PaHaNjkee · Регистрация: 06.06.2010

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

Люди помогите..
Надо чтобы при нажатии на кнопку открывался файл setup.exe
Заранее спасибо за помощь.

@Mad_Dog · 06.06.2010, 15:29

При нажатии на какую кнопку и какой файл setup.exe??? И что значит "открывался"???

Vovan-VE · 06.06.2010, 15:39

В самом начале в uses добавить ShellApi.

Delphi
1
2
3
4
procedure TFotm1.Button1Click(Sender:TObject);
begin
    ShellExecute(Handle, 'open', 'setup.exe', nil, nil, 0);
end;

@PaHaNjkee · 06.06.2010, 15:54 **[ТС]**

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

При нажатии на какую кнопку и какой файл setup.exe??? И что значит "открывался"???

Mad_Dog, При нажатии на Button1 запустить файл setup.exe. Я хочу просто autorun сделать для диска. Ну не "Открывался", а "запускался".

Сообщение от Vovan-VE

В самом начале в uses добавить ShellApi.

Delphi
1
2
3
4
procedure TFotm1.Button1Click(Sender:TObject);
begin
    ShellExecute(Handle, 'open', 'setup.exe', nil, nil, 0);
end;

Спасибо!

Vovan-VE, еще один вопросик....а если этот файл лежит в папке data например, что делать? вот так писать??:

Delphi
1
2
3
4
procedure TFotm1.Button1Click(Sender:TObject);
begin
    ShellExecute(Handle, 'open', 'data\setup.exe', nil, nil, 0);
end;

Vovan-VE · 06.06.2010, 16:20

Лучше так:

Delphi
1
2
3
4
5
6
procedure TFotm1.Button1Click(Sender:TObject);
var s:string;
begin
    s := ExtractFilePath(ParamStr(0)) + 'data';
    ShellExecute(Handle, 'open', PChar(s + '\setup.exe'), nil, PChar(s), 0);
end;

чтобы всегда корректно указывалось расположение и рабочая директория.

@PaHaNjkee · 06.06.2010, 21:17 **[ТС]**

ооо спасибо...

Delphi
1
2
3
4
procedure TAutorun.sBitBtn2Click(Sender: TObject);
begin
    ShellExecute(Handle, 'open', 'ReadMe.txt', nil, nil, 0);
end;

чтото не открываеца файл ReadMe.txt что за проблема? помогите..

@sanya0107 · 06.06.2010, 21:27

Delphi
1
ShellExecute(Handle,'open','1.txt',nil,nil,SW_SHOWNORMAL);

Вот так надо!

@PaHaNjkee · 07.06.2010, 07:31 **[ТС]**

ааа пасибо

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@PaHaNjkee 17 / 17 / 7 Регистрация: 06.06.2010 Сообщений: 148

	Надо чтобы при нажатии на кнопку открывался файл setup.exe 06.06.2010, 15:18. Показов 3613. Ответов 7 Метки нет (Все метки) Люди помогите.. Надо чтобы при нажатии на кнопку открывался файл setup.exe Заранее спасибо за помощь. 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	06.06.2010, 15:29
	При нажатии на какую кнопку и какой файл setup.exe??? И что значит "открывался"??? 0

@PaHaNjkee 17 / 17 / 7 Регистрация: 06.06.2010 Сообщений: 148
	07.06.2010, 07:31 [ТС]
	ааа пасибо 0

Опции темы