Форум: "WinAPI";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизGetOpenFileName Найти похожие ветки
← →
anod (2002-08-22 18:00) [0]Почему-то ничего не происходит:
function OpenFiles(Handle: HWND):TStrings;
var ofn: TOPENFILENAME; files:PCHAR; i:integer;
begin
With ofn do begin
lStructSize:=SizeOf(TOPENFILENAME);
hWndOwner:=Handle;
nFilterIndex:=1;
lpstrFilter:="MPEG Layer-3\0*.mp3\0";
lpstrFile:=files;
nMaxFile:=sizeof(files);
lpstrInitialDir:="C:\";
lpstrTitle:="Выбирите файлы:";
lpstrDefExt:="mp3";
Flags:=OFN_ALLOWMULTISELECT or OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST;
end;
if GetOpenFileName(ofn) then begin
...
end;
end;
← →
Игорь Шевченко (2002-08-22 18:07) [1]а files переменную будем иницализировать или как ?
← →
anod (2002-08-22 18:26) [2]files:="";
Никак не помогает, диалог даже не отображается.
← →
anod (2002-08-22 21:07) [3]Скачал с интернета пример:
function OpenFiles(Handle: HWND):TStrings;
var
OpenFile : OPENFILENAME;
fileName : PChar;
begin
fileName := "";
With OpenFile do begin
lStructSize:= SizeOf(OPENFILENAME);
hwndOwner:=GetActiveWindow();
lpstrFile:= fileName;
nMaxFile:= 255;
lpstrFilter:="MPEG Layer-3|*.mp3";
nFilterIndex:= 1;
lpstrTitle:="Выбирите файлы:";
lpstrInitialDir:= "C:\\";
Flags:=OFN_EXPLORER or OFN_ALLOWMULTISELECT or OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST;
end;
if ( GetOpenFileName(OpenFile) ) then MessageBox(0,fileName, "NotCancel",MB_OK)
else MessageBox(0,"Cancel Pressed!", "NotCancel",MB_OK);
end;
Выдает "Cancel Pressed!"
Мроже можно как-нибудь по другому выбирать файлы???
← →
Eugen Honeker (2002-08-23 02:01) [4]мне тут сразу три ошибки в глаза бросились:
1.
fileName : PChar;
...
lpstrFile:= fileName;
а кто памать то резервировать будет?
провильно было бы:
fileName: array[0..MAX_PATH-1]of char;
...
lpstrFile:= fileName;
2.
lpstrInitialDir:= "C:\\"
; это наверно с си передрато?
для паскалэ хватит"C:\"
;
3.
lpstrFilter:="MPEG Layer-3|*.mp3";
провильно было бы:
lpstrFilter:="MPEG Layer-3"#0"*.mp3";
← →
anod (2002-08-23 21:16) [5]Хмм, ладно, все равно не работает, зато я подключил dialogs и создаю TOpenDialogs - отлично работает.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c