Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
1-1096830129
nof
2004-10-03 23:02
2004.10.17
Бинарные перестановки


14-1096548475
Guest
2004-09-30 16:47
2004.10.17
Срочно нужен совет


4-1095353519
RaPToR_1
2004-09-16 20:51
2004.10.17
блокировка


1-1096532602
awp
2004-09-30 12:23
2004.10.17
Invalid Pointer Operation при вызове DLL


14-1096098421
Zlo_van
2004-09-25 11:47
2004.10.17
Немного информации о Делфи 9