Текущий архив: 2003.06.12;
Скачать: CL | DM;
Вниз
Диалоги через API Найти похожие ветки
← →
Gefest © (2003-04-12 08:58) [0]Можно ли вызвать стандартный диалог Windows открыть-сохранить через API? И если можно, то как?
← →
Morfein © (2003-04-12 15:13) [1]GetOpenFileName/GetSaveFileName соответсвенно...
← →
Gefest © (2003-04-13 20:05) [2]А по-подробнее нельзя?
← →
Gefest © (2003-04-13 21:25) [3]Народ!
Пожалуйста помогите примером. Пробовал по-всякому вызов не происходит!!??!??
ПЛиЗЗЗЗЗЗЗЗЗ.
← →
[lamer]Barmaglot © (2003-04-14 10:14) [4]
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-14 10:35) [5]Спасибо! Теперь все работает.
Страницы: 1 вся ветка
Текущий архив: 2003.06.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
