Проверит наличие програмы.

[blackstersl]

Привет всем. Как можно проверить наличие программы в папке, тоесть если таковая имеется например(D:\mainprog\programm.exe), то button1.enabled := true, в ином случае false? спасибо.

[Greblin]

if FileExists('D:\mainprog\programm.exe') then Button1.Enabled := true
else Button1.Enabled := false;

[Kotofff]

Или короче и быстрее в выполнении :

Button1.Enabled := FileExists('D:\mainprog\programm.exe');

Учитесь сразу (если это позволяет поставленная задача) оптимизировать свой код.

[blackstersl]

Спасибо, а как вызвать эту прогу по нажатию на эту кнопу?

[Greblin]

uses ShellApi;
...
ShellExecute(Handle, 'open', 'D:\mainprog\programm.exe', nil, nil, SW_SHOW);

[blackstersl]

Спасибо -).