| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вызов диалога открытия файла [D6]

ISergey ©   (2003-03-28 17:14:00) 

Господа, пишу прилажение на WinAPI, понадобилось вызвать диалог
открытия файла (GetOpenFileName). Подскажите, где можно взять материальчик на данную тему (исходник на Дельфе слишком навороченный, к тому же без комментариев).

---

Morfein   (2003-03-30 20:28:00) [1]

забыл... тут нужно ещё кой-чего...

usescommdlg;


---

Morfein   (2003-03-29 21:23:00) [2]


procedure TForm1.FormCreate(Sender: TObject);
var
ofn : OPENFILENAME;
begin
ZeroMemory(@ofn, sizeof(OPENFILENAME));
with ofn do
begin
lStructSize:=sizeof(OPENFILENAME);
lpstrInitialDir:="c:\windows";
lpstrTitle:="Choose Any File";
nMaxFile:=255;
lpstrFile:=VirtualAlloc(0, 255, MEM_COMMIT, PAGE_READWRITE);
lpstrFilter:="Win32 Executables"+#0+"*.exe"+#0+"All file types"#0+"*.*"+#0#0;
Flags:=OFN_FILEMUSTEXIST + OFN_HIDEREADONLY + OFN_PATHMUSTEXIST;
end;

if GetOpenFileName(ofn) then
MessageBox(0, ofn.lpstrFile, nil, MB_OK);
VirtualFree(ofn.lpstrFile, 0, MEM_RELEASE);
end;


что не понятно, пишите на мыло...

---

BuildeRR   (2003-03-29 13:55:00) [3]

Этот вопрос меня тоже очень волнует!
Мастера, напишите пожалуйста пример простенькой программки с использованием диалога открытия файла!

---

Morfein   (2003-03-28 21:26:00) [4]

1. Win32 Programmer"s Reference, поставляемый с Delphi.
2. MSDN

---

Наверх