Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Вызов диалога открытия файла   Найти похожие ветки 

← →
ISergey ©   (2003-03-28 17:14) [0]

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

---

← →
Morfein ©   (2003-03-28 21:26) [1]

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

---

← →
BuildeRR ©   (2003-03-29 13:55) [2]

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

---

← →
Morfein ©   (2003-03-29 21:23) [3]


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;


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

---

← →
Morfein ©   (2003-03-30 20:28) [4]

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

uses commdlg;


---

Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c