OpenDialog

[Андрей=]

Привет всем!
Кто-нибудь встречал, как из OpenDialog'а при его запуске (Execute) убрать (скрыть) программно кнопку "Отмена"???

[_Dmitry]

procedure TForm1.OpenDialog1Show(Sender: TObject);
var
  h,sh: HWND;
begin
  h:=FindWindow(nil,'Открыть'); //ищем окно диалога по заголовку
  sh:=FindWindowEx(h,0,'Button','Отмена'); //ищем кнопку
  ShowWindow(sh,SW_HIDE); //прячем кнопку
end;

[Андрей=]

Спасибо, _Dmitry, за совет. Оказывается, все просто.

[Airou]

А у меня такой вопрос:
RichEdit2.Lines.Assign(OpenDialog1. Files)
Записывает полный путь к файлу, а как получить относительно корневого каталога программы.

[Андрей=]

см. ExtractFileName, ExtractFilePath. Не походит?

[Airou]

Ммм что то не пойму как использовать ExtractFilePath применительно к OpenPictureDialog.

RichEdit2.Lines:=ExtractFilePath(Op enPictureDialog1.Files); или что-то вроде этого.

[Андрей=]

А так?

If OpenPictureDialog1.Execute then
begin
Memo1.lines.Add(ExtractFilePath(Ope nPictureDialog1.FileName)); //путь
Memo1.lines.Add(ExtractFileName(Ope nPictureDialog1.FileName));// сам файл
Memo1.lines.Add(ExtractFileExt(Open PictureDialog1.FileName));// расширение файла

end;