Срочно помогите!!!! Создал кнопку в форме, надо чтобы при нажатие кнопки открывалась папка определенная с компьютера! Помогите Умницы и Умники))

Нашел вариант такой! Но не получается!

func Execute
lpara tcFile, tcPath, tcParameters, tnType
DECLARE integer ShellExecuteA in SHELL32.DLL integer hWnd, string lpOperation, string lpFile, string lpParam, string lpDirectory, integer nShowCmd
if vartype(tcParameters)!='C'
tcParameters=''
endif
if vartype(tcPath)!='C'
tcPath=sys(5)+sys(2003)
endif
if vartype(tnType)!='N'
tnType=3
endif
ShellExecuteA(0, 'open', tcFile, tcParameters, tcPath, tnType)
return

куда это надо вставлять в кнопку? Какая процедура? click? где путь прописывать!

спасибо! но эти команды открывают файлы! а мне надо чтобы открывалась папка где допустим хранятся фотографии

1. да,команда дает выбрать нужный файл, но допустим я выбираю фотографию и она не открывается!!!
2. задача такова, я открываю папку (или твоим способом,но он не работает,выбераю нужную фотку и печатаю! точнее эта будет не фотка а pdf

в принципе получилось! не то что хотел но все же! Хотелось бы конечно чтоб непосредственно папка открывалась а не поиск!

ВОооооооо Ganjubas вот это оно спасибо!!!!!!!!!!