[hasherfrog]

ЕМНИП есть такое: Chr(0)
Т.е. ofn.lpstrFilter = "Executables" + chr(0) + "*.exe";

[Savant]

ИМХО:
1) вместо Chr(number), где number - некоторая целая константа, удобнее использовать конструкцию #number , хотя бы потому, что она не требует знака сложения до/после и высчитывается на этапе компиляции.
2) т.к. lpstrFilter указывает на пары нуль-терминантных строк, то оканчиваться должен двумя нулями.
итог: ofn.lpstrFilter := 'Executables'#0'*.exe'#0#0;

[DillerInc]

Savant

итог: ofn.lpstrFilter := 'Executables'#0'*.exe'#0#0;

...ну,наконец-то,заработало как надо .
В очередной раз говорю тебе : "Спасибо!" .

[Maksim V]

Ммм... А если я подгружаю строку из ресурса программы? Как же мне поступить?
Использую PChar(переменная из var) допустим для lpstrTitle. А вот как тут как?
Строковый ресурс примерно такой:

Код:

STRINGTABLE
LANGUAGE LANG_RUSSIAN, 0x1
{
100, 	"One file (*.*)\nTwo file (*.*)"
}

Как в дилагое выбора файла в поле типа можно было выбрать интересующий тип файла? Это все отображается в одну строку. Помогите пожалуйста.

[DillerInc]

Должно быть что-то в этом роде:

Код:

"Executables",0,"*.exe",0,"DLLs",0,"*.dll",0,0

Либо на Дельфях:

Код:

'Executables'#0'*.exe'#0'DLLs'#0'*.dll'#0#0

Буфер,на который указавает lpstrFilter,характеризуется парами строк.
Каждая пара означает определённый фильтр.
Каждая строка в буфере должна заканчиваться нулём.
После последней строки идёт двойной нуль.

[Maksim V]

Попробовал создать ресурс так:

Код:

 STRINGTABLE
LANGUAGE LANG_RUSSIAN, 0x1
{
1653, 	"1653, 	"Исполняемый файл (*.exe)|*.exe|Динамическая библиотека (*.dll)|*.dll||"
}

Затем выполнил замену строк:

Код:

 .....
function CharReplace(const Source: string; oldChar, newChar: Char): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to Length(Result) do
    if Result[i] = oldChar then
      Result[i] := newChar
.....
lpstrFilter  := PChar(CharReplace(Номер строки, '|', #0))
.....

[DillerInc]

Maksim V
А можно спросить: Зачем так извращаться??
Почему нельзя параметры фильтра настроить по-человечески, т.е. во время заполнения структуры в самой программе??

[Maksim V]

Эээ... Это как так? Можно пример?

[DillerInc]

Можно пример?

...например,так:

Код:

var
 OpenDlgBox:TOpenFileName;
 pathFile : array [0..260] of Char = '';
 nameFile : array [0..260] of Char = '';

...

{ Заполняем структуру OpenDlgBox класса TOpenFileName }

 OpenDlgBox.lStructSize := SizeOf(OpenDlgBox);
 OpenDlgBox.lpstrFilter := 'Text Files'#0'*.txt'#0'Bitmap Files'#0'*.bmp'#0#0;
 OpenDlgBox.lpstrCustomFilter := NIL;
 OpenDlgBox.lpstrFile := pathFile;
 OpenDlgBox.nMaxFile := SizeOf(pathFile);
 OpenDlgBox.lpstrFileTitle := nameFile;
 OpenDlgBox.nMaxFileTitle := SizeOf(nameFile);
 OpenDlgBox.lpstrInitialDir := 'C:\Program Files\';
 OpenDlgBox.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST;

begin
 GetOpenFileName(OpenDlgBox);
end;

...кстати,пример,где используется двойной фильтр.Массивы для пути и имени идут у меня как глобальные переменные,поэтому их можно инициализировать(в данном случае это будет нуль).
Кстати,если эти массивы не забить нулями(например,когда массивы находятся в процедуре как локальные переменные),то могут возникнуть глюки с вызовом функции GetOpenFileName.

Просто дело в том,что в начало массива pathFile,например,можно поместить строку с названием файла.Тогда это название будет отображено в поле Edit диалога открытия файла.Если же там будет какой-то бред в начале,то тогда будут и баги.
А вообще я это ещё не проверял,но скорее всего так оно и есть(на MSDN так сказано).