| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
GetOpenFileName
Andre © (2003-08-03 23:06:00)
Всем привет!
Почему это не работает?
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;
Что здесь не так?
Спасибо!
Prov (2003-08-07 09:38:00) [1]
Извините, я не понял сам вопрос... Если можно то может на мыло ?
Потому что не могу в инете висеть...
Если Вы имеете ввиду Popup menu, то я не пробовал это сделать...
andre (2003-08-06 02:20:00) [2]
Спасибо. А как убрать выпадающее меню из строки имени файла?
Prov (2003-08-05 10:04:00) [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:= ("
R4D][ (2003-08-04 19:25:00) [4]
Было дело, я тоже парился с этим. Из твоего кода видно, что ошибка в фильтре - в конце фильтра должно быть #0#0, а не #0.
ZZ (2003-08-04 01:02:00) [5]
Измени (если надо..., а то не понятно на что указывает PChar)
openfile : array[0..256] of Char;
ofn.lpstrFile := @openfile;
добавь
ofn.nMaxFile := 256;
Все присвоения нулей и nil можно убрать :)
| |
