При нажатии на конопку должна открываться папка

[ilsen]

Здравствуйте, возник такой вопрос. Допустим, имеется форма, на форме кнопка. При нажатии на конопку нужно, чтобы открылась папка. Например: D:\games. А если папки не существует то выдается ошибка. Какой код нужно написать для кнопки?

[IliaIT]

из справки по дельфи 7 есть пример на поиск директории и её создание.

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;

а для открытия в проводнике используй из shellapi процедуру ShellExecute с параметрами

explorer.exe с ключом "c:\temp" то есть

...
uses
  shellapi
...
procedure TForm1.Button1Click(Sender: TObject);
var
  cmd, par, fil, dir: PChar;
begin
cmd := 'open';
fil := PChar('explorer.exe');
par := PChar('c:\temp');
dir := '';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWNORMAL);
end;

P.S.
ещё можно не проверять есть ли папка. а сразу открывать, тогда ошибку обработает проводник сам и выдаст сообщение.

[ilsen]

Спасибо, работает!