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

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

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