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

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

GetOpenFileName

Xerx ©   (2004-08-29 11:46:00) 

Кто может привести пример по использованию GetOpenFileName и GetSaveFileName?

---

DVM   (2004-09-10 21:25:00) [1]

> Xerx ©   (10.09.04 20:54) [4]
> А результат, варианты?

Если это мне, то надо так:
OFN.lStructSize := 76;

---

Xerx   (2004-09-10 20:54:00) [2]

А результат, варианты?

---

DVM   (2004-09-06 21:51:00) [3]

> TankMan ©   (03.09.04 13:48) [2]

ИМХО большое сомнение насчет работоспособности этого во всех версиях виндов.
Именно тут проблема может быть:

ofn.lStructSize := sizeof(TOpenfileName);

---

TankMan   (2004-09-03 13:48:00) [4]

var
OFN : TOpenFileName;
i:integer;
filename:array[0..MAX_PATH] of Char;
begin
   ZeroMemory(@ofn,sizeof(TOpenfileName));
   ofn.lStructSize := sizeof(TOpenfileName);
   ofn.hwndOwner:=form1.Handle;
   ofn.hInstance:=0;
   ofn.lpstrFilter:='111(*.111)\0*.111\0222(*.222)\0*.222\0All Files (*.*)\0*.*\0\0';
   ofn.lpstrFile:=filename;
   ofn.lpstrFileTitle:=nil;
   ofn.lpstrCustomFilter:=nil;
   ofn.nMaxCustFilter:=0;
   ofn.nFilterIndex:=0;
   ofn.nMaxFile:=MAX_PATH;
   ofn.lpstrFileTitle:=nil;
   ofn.nMaxFileTitle:=MAX_PATH;
   ofn.lpstrInitialDir:=nil;
   ofn.lpstrTitle:='Open File';
   ofn.Flags:=OFN_HIDEREADONLY or OFN_CREATEPROMPT;
   ofn.nFileOffset:=0;
   ofn.nFileExtension:=0;
   ofn.lpstrDefExt:='txt';
   ofn.lCustData:=0;
   ofn.lpfnHook:=nil;
   ofn.lpTemplateName:=nil;
   ofn.lpstrFileTitle:=nil;
GetOpenFileName(OFN);

---

GuAV   (2004-08-30 00:24:00) [5]

controls.pas может. TOpenDialog+Crtl+Click
А ещё MSND может.

---

Наверх