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

Вниз

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 вся ветка

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

Наверх

Память: 0.47 MB
Время: 0.018 c