Тема: OpenDialog
Показать сообщение отдельно
  #6  
Старый 29.11.2011, 10:57
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir:='C:\';
  if OpenDialog1.Execute then
end;

Удачи.
Ответить с цитированием