Скачать: CL | DM;

GetOpenFileName   Найти похожие ветки 

← →
Xerx ©   (2004-08-29 11:46) [0]

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

---

← →
GuAV ©   (2004-08-30 00:24) [1]

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

---

← →
TankMan ©   (2004-09-03 13:48) [2]

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);

---

← →
DVM ©   (2004-09-06 21:51) [3]

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

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

ofn.lStructSize := sizeof(TOpenfileName);

---

← →
Xerx ©   (2004-09-10 20:54) [4]

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

---

← →
DVM ©   (2004-09-10 21:25) [5]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c