Связь кнопки с .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 осталась для совместимости с предыдущими версиями винды

дублирование вопросов

Связь кнопки с .exe файлом (продолжение) Найти похожие ветки