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

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

Диалоги через API [D6, Win95/98, WinME, WinXP]

Gefest ©   (2003-04-12 08:58:00) 

Можно ли вызвать стандартный диалог Windows открыть-сохранить через API? И если можно, то как?

---

Gefest   (2003-04-14 10:35:00) [1]

Спасибо! Теперь все работает.

---

[lamer]Barmaglot   (2003-04-14 10:14:00) [2]


Uses CommDlg;

procedure TForm1.Button1Click(Sender: TObject);
const
Filter: Array[0..255] of Char="text file"+#0+"*.txt"+#0+#0;
var
OFN: TagOFN;
Buffer: Array[0..255] of Char;
begin
OFN.lStructSize:=Sizeof(OFN);
OFN.hWndOwner:=0;
OFN.hInstance:=0;
OFN.lpstrFilter:=Filter;
OFN.lpstrCustomFilter:=0;
OFN.lpstrFile:=buffer;
OFN.nMaxFile:=256;
OFN.lpstrFileTitle:="lamer";
OFN.lpstrTitle:="lamer1";
OFN.lpstrInitialDir:="c:\";
OFN.nMaxFileTitle:=16;
OFN.Flags:=OFN_PATHMUSTEXIST or OFN_FILEMUSTEXIST or OFN_HIDEREADONLY;
OFN.lpTemplateName:=0;
GetOpenFileName(OFN);
end;


---

Gefest   (2003-04-13 21:25:00) [3]

Народ!
Пожалуйста помогите примером. Пробовал по-всякому вызов не происходит!!??!??
ПЛиЗЗЗЗЗЗЗЗЗ.

---

Gefest   (2003-04-13 20:05:00) [4]

А по-подробнее нельзя?

---

Morfein   (2003-04-12 15:13:00) [5]

GetOpenFileName/GetSaveFileName соответсвенно...

---

Наверх