Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
ВнизСвязь кнопки с .exe файлом (продолжение) Найти похожие ветки
← →
alexandr1045 (2003-09-18 09:39) [0]Подскажите пожалуйста, что и куда мне нужно написать, чтобы при нажатии кнопки (TButton) у меня запустился .exe Файл с диска С
(c:\decodn.exe)
Очень нужно, заранее спасибо.
Вот простая форма с кнопкой:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
← →
Lord Warlock (2003-09-18 09:44) [1]Один из вариантов:
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec("c:\decodn.exe",SW_SHOW);
end;
← →
3fc (2003-09-18 11:16) [2]А лучше так:
ShellExecute(0, PChar("Open"), PChar("c:\decodn.exe"),
nil, PChar("c:\decodn.exe"), SW_SHOW);
WinExec осталась для совместимости с предыдущими версиями винды
← →
Palladin (2003-09-18 11:40) [3]дублирование вопросов
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c