Программа (пароль на папку)

[shvint]

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

а компонент TOpenDialog Вы на форму не забыли кинуть ?!!

Кинул форму, а программа меня кинула.))
Не хочет пишет ошибку

If TsOpenDialog.Execute then

[Serge_Bliznykov]

Вы в партизана играете?!
Какую именно ошибку пишет?!!! (скопируйте сообщение об ошибке или скриншот дайте!)

да и вообще, давно бы уже запаковали исходники в архив, выложили архив сюда на форум как вложение - вам бы исправили ошибки и всё...

[shvint]

Я даже и не подумал, чтобы выложить.)
Хорошо вот исходник: http://hdd.tomsk.ru/file/rqnkbtuh
Компонент для кнопок и фона использовал alphastandart и alphaTools

нашел еще интересное http://www.delphibasics.ru/SelectDirectory.php
на этом сайте есть интересная фишка, чтобы выбирать с диалогового окна директорию.

[shvint]

Добрый день всем!
Я все-таки добью ее.
Код для кнопки открыть файл такой:

var
LDlg: TOpenDialog;
begin
  LDlg := TOpenDialog.Create(nil);
  LDlg.Options := LDlg.Options+[ofNoChangeDir];
  try
    if LDlg.Execute then
      ShowMessage(LDlg.FileName);
  finally
    FreeAndNil(LDlg);
end;

А подскажите как выбрать просто директорию?
Если получится, постараюсь довести до ума остальное.)