Доброго времени суток.
Считываю из некой DLL'ки ресурс диалога. Тпереь встает вопрос, что нужно показать диалогове окно, как это можно реализовать? CreateDialog? Желательно пример подкиньте. Буду очень благодарен.

var Dll:THandle;
ResStream: TResourceStream;
begin
Dll := LoadLibrary(ю.юю);
try
ResStream := TResourceStream.CreateFromID(dll, 195, PChar(RT_DIALOG));
Вот, а как теперь показать диалоговое окно используя данные из ResStream?
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;

| Сообщение посчитали полезным:

PS: Delphi

| Сообщение посчитали полезным:

Iz TResourceStream vryad li poluchitsya, ispolsui chisto API(MSDN tebe pomoget)

| Сообщение посчитали полезным:

DialogBoxParam тут как раз подойдёт

нечто вроде:
DialogBoxParam(GetModuleHandle("ю.юю"),195,NULL,_dialogproc,NULL);

| Сообщение посчитали полезным:

Да и такое подойдет, если фокус между диалогом и главным окном меняться должен.

CreateDialogParam (hInstance dll, в которой лежит диалог),(ID диалога),(привязка к главному окну hWindowParent или NULL, если автономно должно работать) ,_dialogproc,NULL

-----
ЗЫ: истЕна где-то рядом, Welcome@Google.com

| Сообщение посчитали полезным:

program Dialog;
uses
Windows, Messages;
const
IDD_DIALOG_1 = 200;
IDC_EDIT1 = 103;
IDC_EDIT2 = 104;
MAINICON = 400;
var
buffer : array [1..$80] of byte;


function DlgProc(hDlg, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := 1;
CASE uMsg OF
WM_INITDIALOG :
begin
SendMessage(hDlg, WM_SETICON, ICON_BIG,
LoadIcon(hInstance, PChar(MAINICON)));
SendMessage(hDlg, WM_SETICON, ICON_SMALL,
LoadImage(hInstance, PChar(MAINICON), IMAGE_ICON, 16, 16, 0));
end;
WM_COMMAND :
begin
if (LOWORD(wParam) = IDC_EDIT1) and (HIWORD(wParam) = EN_CHANGE) then
begin
GetDlgItemText(hDlg, IDC_EDIT1, ADDR(buffer), SizeOf(buffer));
SetDlgItemText(hDlg, IDC_EDIT2, ADDR(buffer));
end
else
Result := 0;
end;
WM_CLOSE : EndDialog(hDlg, 0);
ELSE
Result := 0;
end; {CASE}
end;

{$R KeyGen.res}
begin
DialogBoxParam(hInstance, PChar(IDD_DIALOG_1), 0, @DlgProc, 0);
end.

| Сообщение посчитали полезным:


procedure TForm1.Button1Click(Sender: TObject);
function DlgProc(hDlg, uMsg, wParam, lParam: Integer): Integer; stdcall;

begin
While GetMessage(Mesg,0,0,0) do
begin
if IsDialogMessage(hDlg,Mesg) then continue;
TranslateMessage(Mesg);
DispatchMessage(Mesg);
end;
end;
var Dll:THandle;
ResStream: TResourceStream;
buffer : array [1..$80] of byte;
begin
Dll := LoadLibrary(DLLPATH);
try
ResStream := TResourceStream.CreateFromID(dll, 1095, PChar(RT_DIALOG));
DialogBoxParam(dll,'195',Form1.handle,@DlgProc,0);
finally
ResStream.free;
end;
FreeLibrary(handle);
end;



В чем ошибка?

| Сообщение посчитали полезным:

Kakaya oshibka? Chto compilyator pishet?

| Сообщение посчитали полезным:

Все нормально компилируется, диалоговое окно не выводится.
Вот код (не работает ):

procedure TForm1.Button1Click(Sender: TObject);
function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
Result := False;
case uMsg of
WM_INITDIALOG:;
WM_COMMAND:
begin
case LoWord(wp) of
100: EndDialog(hWin, 0);
end;
end;
WM_DESTROY, WM_CLOSE: PostQuitMessage(0);
end;
end;
var Dll:THandle;
ResStream: TResourceStream;
hDlg :THandle;
begin

Dll := LoadLibrary(DllPath);

try
ResStream := TResourceStream.CreateFromID(dll, 195, PChar(RT_DIALOG));
DialogBox(Dll, '195', 0, @DlgProc);

finally
ResStream.free;
end;
FreeLibrary(handle);
end;



| Сообщение посчитали полезным:

Есть DLLка, так вот мне нужно показать диалогове окно, используя ресурвы из данной DLL'ки, номер ресурса 195

| Сообщение посчитали полезным:

Zachem tebe TResourceStream? Uberi ego i blok try...finally, vozmogno zarabotaet Eshe moget byt nepravilno ukazal ID dialoga, poprobui v hex.

| Сообщение посчитали полезным:

(DOUBLE)

| Сообщение посчитали полезным:

Dll := LoadLibrary(DllPath);
DialogBox(Dll, '195', 0, @DlgProc);
Не работает, дело не в try .. finally
ID диалога указан верно, т.к. смотрел при помощи Restoratora, номер 195 )

| Сообщение посчитали полезным:

Dll := LoadLibrary(DllPath);
DialogBox(Dll, '195', 0, @DlgProc);
Может тут ошибка?

| Сообщение посчитали полезным:

может так стоит попробовать всё таки

Dll := LoadLibrary(DllPath);
DialogBox(GetModuleHandle("ю.юю"),195,0,@DlgProc);
FreeLibrary(DllPath);

| Сообщение посчитали полезным:

Все равно не работает

| Сообщение посчитали полезным:

Проверь, библиотека вообще грузится(Dll<>0), потом попробуй указать не номер диалога а его имя... Если не выйдет, выпей йаду

| Сообщение посчитали полезным:

(DOUBLE)

| Сообщение посчитали полезным:

Все разобрался

Dll := LoadLibrary(DllPath);
DialogBox(GetModuleHandle(DllPath),MAKEINTRESOURCE(1095),0,@DlgProc);
FreeLibrary(Dll);

| Сообщение посчитали полезным:

надо же... msdn приобрети

| Сообщение посчитали полезным: