Developing.ru

Спасибо. И соответственно процедура принимает такой вид:
[syntax=Delphi]
ShellExecute(ShellExecute(Handle, nil,PChar(ExtractFilePath(Application.ExeName)), nil, nil, SW_SHOWMAXIMIZED); end
[/syntax]

Таким образом вы просто откроете папку с программой проводником.

ну я вообще как пример. я делаю так:
[syntax=Delphi]
var s:string
............................................
S:=ExtractFilePath(Application.ExeName)+'\blablabla.exe';
ShellExecute(Handle, nil,PChar(S), nil, nil, SW_SHOWMAXIMIZED);

[/syntax]