Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=596458 Mon, 31 Jan 2005 11:37:46 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=596458
    function LoadStr(ID: DWORD): String;
    var
     buffer: array[0..1023] of Char;
    begin
     LoadString(hInstance, ID, buffer, SizeOf(buffer));
     SetString(result,buffer,SizeOf(buffer));
    end;


проходит отлично, а в некоторых других есть глючки. Но это не столь важно. Сенкс!!! :rolleyes:]]> WIN32API Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595482 Sun, 30 Jan 2005 13:41:11 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595482 WIN32API, сделай вот так
    function LoadStr(ID: DWORD): String;
    var
     buffer: array[0..1023] of Char;
    begin
     LoadString(hInstance, ID, buffer, SizeOf(buffer));
     SetString(result,buffer,SizeOf(buffer));
    end;
]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595467 Sun, 30 Jan 2005 13:24:52 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595467

    function LoadStr(ID: DWORD): String;
    var
     buffer: array[0..1023] of Char;
    begin
     LoadString(hInstance, ID, buffer, SizeOf(buffer));
     result := String(buffer);
    end;
     
    procedure OpenFileDlg(hOpenFile: HWND; hControl: HWND; FilterString: PChar);
    begin
     ofn.lpstrFilter     := FilterString;
    .......


//Вот так все достаю и выходит херня:

     OpenPathDlg(hwPage4, GetDlgItem(hwPage4, 35), PChar(LoadStr(72)));


Наверное, буду делать, как ты мне посоветовал. Спасибо, твой код полностью рабочий!]]> WIN32API Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595428 Sun, 30 Jan 2005 12:39:39 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595428 WIN32API, а я вот всю жизнь так делаю и чего-то проблем никогда не возникало ;). Ну это же синтаксис RC скрипта. Так что поведай: как компилируешь? в чем потом ресурсы смотришь? (если, например в редакторе MSVC++ 6, то он дальше первого нуля не показывает просто, хотя в самом res-файле вся строка целиком лежит). Как потом в проге строку берешь из ресурсов?
Вообще, последовательность такая:
компилишь rc-файл любым rc-компилером
    brcc32.exe myres.rc

Получаешь res. Подключаешь его к проге {$R myres.res}.
В проге грузишь из ресурса:
    var
     lpBuf:array[0..MAX_PATH-1] of char;
    begin
     LoadString(hInstance,101,lpBuf,MAX_PATH);
      ....

В lpBuf теперь лежит эта строка. MAX_PATH тут для примера. Можешь сам посчитать точную длинну строки, а лучше (как тут) взять заведомо больший размер.
Ну а потом юзаешь строку, как тебе нуно:
    var
    ofn:TOpenFileName;
    begin
    ...
    ofn.lpstrFilter := lpBuf;
    ...
]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595261 Sun, 30 Jan 2005 09:03:02 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595261 s-mike Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595241 Sun, 30 Jan 2005 08:17:23 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=595241 WIN32API Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594652 Sat, 29 Jan 2005 12:51:37 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594652 WIN32API, вот так
    STRINGTABLE
    {
     101, "Программа (*.exe; *.com){text}*.exe; *.com{text}Заставка (*.scr){text}*.scr{text}Текстовый документ (*.txt){text}*.txt{text}Все файлы (*.*){text}*.*{text}{text}"
    }
]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594618 Sat, 29 Jan 2005 11:41:56 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594618 Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594507 Sat, 29 Jan 2005 09:02:28 +0000 #0 в RC-файле https://forum.sources.ru/index.php?showtopic=81298&view=findpost&p=594507
    'Программа (*.exe; *.com)' + #0 + '*.exe; *.com' + #0 +
             'Заставка (*.scr)' + #0 + '*.scr' + #0 +
             'Текстовый документ (*.txt)' + #0 + '*.txt' + #0 +
             'Все файлы (*.*)' + #0 + '*.*' + #0#0


Как это сделать я знаю. Вопрос не в этом. Вопрос в том как прописать в RC-файле - #0 ?]]> WIN32API Delphi: Система, Windows API