Форум: "WinAPI";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Вниз

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, то я не пробовал это сделать...

---

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

Форум: "WinAPI";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Наверх

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