Скачать: CL | DM;

Связь кнопки с .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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c