Открытие определенного *.exe файла через Button

[KnoWabLe]

Здраствуйте!

В коде я задаю программу вот таким образом, но при проверке ничего не происходит:

procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
GetDir(0, dir);
dir:=dir+'\programma\program.exe';
end;

Подобным образом я меняю текст в Memo и у меня работает:

procedure TForm1.English1Click(Sender: TObject);
var dir, dir2, dir3:string;
begin
GetDir(0,dir);
dir:=dir+'\memo1 eng.txt';
memo1.Lines.LoadFromFile(dir);
GetDir(0,dir);
dir2:=dir+'\memo2 eng.txt';
memo2.Lines.LoadFromFile(dir2);
GetDir(0,dir);
dir3:=dir+'\memo3 eng.txt';
memo3.Lines.LoadFromFile(dir3);
end;

Что нужно поправить/добавить в первом коде?

[Surgeon]

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

Здраствуйте!

В коде я задаю программу вот таким образом, но при проверке ничего не происходит:

procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
GetDir(0, dir);
dir:=dir+'\programma\program.exe';
end;

А где здесь проверка? Проверка на что? Если почитать справку (как сделал я только что) GETDIR ничего не проверяет, т.е. может вернуть путь на несуществующем диске.
Сам использую два варианта:

1.LOG_path:=ChangeFileExt( Application.ExeName, '.log');
2.fotopath:=ExtractFileDir(Application.ExeName);

ИМХО плясать от экзешника лучше, т.к. он где-то существует, а
этот вариант

dir:=dir+'\programma\program.exe';

убивается шаловливыми ручками пользователя, который переименует/переместит каталог "programma".

[SNUPY]

Попробуйте-ка вот так (данный вариант кода запустит екзешник если таковой имееться):

procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
GetDir(0, dir);
dir:=dir+'\programma\program.exe';
If FileExists(dir) then 
WinExec(dir,SW_SHOW);
end;