GetOpenFileName

← →
Andre (2003-08-03 23:06) [0]

Всем привет!
Почему это не работает?
function OpenPicture (Window : THandle) : Boolean; var ofn : OPENFILENAME; openfile : PChar; begin ZeroMemory (@ofn, sizeof (ofn)); ofn.lStructSize := sizeof (OPENFILENAME); ofn.hWndOwner := Window; ofn.lpstrFilter := "*.bmp" + #0 + "*.bmp" + #0; ofn.nFilterIndex := 1; ofn.lpstrFile := openfile; ofn.lpstrFileTitle := nil; ofn.nMaxFileTitle := 0; ofn.lpstrInitialDir := nil; ofn.Flags := OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST; If GetOpenFileName (ofn) then Result := true else Result := false; end;
Что здесь не так?
Спасибо!

← →
ZZ (2003-08-04 01:02) [1]

Измени (если надо..., а то не понятно на что указывает PChar)

openfile : array[0..256] of Char;
ofn.lpstrFile := @openfile;

добавь
ofn.nMaxFile := 256;

Все присвоения нулей и nil можно убрать :)

← →
R4D][ (2003-08-04 19:25) [2]

Было дело, я тоже парился с этим. Из твоего кода видно, что ошибка в фильтре - в конце фильтра должно быть #0#0, а не #0.

← →
Prov (2003-08-05 10:04) [3]

function GetOpenFilePath: string;
var ofn: TOpenFileName; Buffer: array[0..MAX_PATH] of Char;
begin
Result:= "";
FillChar(Buffer, SizeOf(Buffer), 0);
FillChar(ofn, SizeOf(ofn), 0);
with ofn do
begin
ofn.lStructSize:= SizeOf(ofn);
ofn.hWndOwner:= WinMainWnd;
ofn.hInstance:= SysInit.HInstance;
ofn.lpstrFilter:= ("

← →
andre (2003-08-06 02:20) [4]

Спасибо. А как убрать выпадающее меню из строки имени файла?

← →
Prov (2003-08-07 09:38) [5]

Извините, я не понял сам вопрос... Если можно то может на мыло ?
Потому что не могу в инете висеть...
Если Вы имеете ввиду Popup menu, то я не пробовал это сделать...

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