ShowWindow из-под dll

[Nowichok]

Есть программка с глобальным хуком. Так вот хочу, чтобы при нажатии на кнопку появлялось окно (там будет указана текущая громкость звука)
Возникла такая проблема :
если я в dll-файле пишу :

ShowWindow(CurrentF.Handle, SW_SHOWNOACTIVATE);    

{SW_SHOWNOACTIVATE Отображает окно в его последней позиции и с последними размерами. Активным остается то окно, которое было активным до этого.}

То окно не появляется...мало того, не выполняется ни один оператор, который находится после этой строчки.

Если же это написать в ГЛАВНОЙ форме (при нажатии на клавишу ,допустим)..., то всё работает.

Есть опасениЯ, что глючит из-за параметра SW_SHOWNOACTIVATE ,т.к. библиотека-то не имеет формы...

P.S. Опустил нюансы скрытия (закрытия) вызываемого окна и того, чтобы оно было поверх всех окон и т.д. ...это не должно влиять на мою проблему....

[mihali4]

А чей это хэндл - CurrentF.Handle?
Самой программы, с окошком?
Тогда этот параметр должен передаваться в DLL именно в виде входного параметра для обработчика.
А так получается, на собственном хэндле она и спотыкается...

[Nowichok]

Моей формы, которая подключена через USES к библиотеке....вот и пытаюсь показать эту форму !

ХОчу попытаться отправить сообщение либо формЕ, которую хочу показать, либо главной форме...и оттуда показать форму уже. Но не знаю, как пользоваться в этом случае SendMessage. Нашёл здесь

http://www.polyml.org/docs/Winref/Message.html

структуру Message.....но вот что оттуда брать и как это использовать ??

[mihali4]

Моей формы, которая подключена через USES к библиотеке....вот и пытаюсь показать эту форму

Так ежели она еще не создана, откуда у нее хэндл?

ХОчу попытаться отправить сообщение либо формЕ, которую хочу показать, либо главной форме

Откуда отправить? Есть еще что-то, кроме главной формы, дэльэльки и будущей формочки с текущей громкостью звука?
Ну что ж такое - прямо партизан какой-то - ничего не выдает про свою программу...

[Alar]

Пора уже прекрепить код или наработки показать...

[Nowichok]

На данный момент ытаюсь сделать в таком подобии..

библиотека :

library dll_Change;

uses
  ......
  Popup_volume in 'Popup_volume.pas' {CurrentF};  // вот она...форма

......

function Key_Hook(Code: integer; wParam: word; lParam: DWord): Longint;stdcall; export;
var KeyState:integer; //состояние клавиши
h:HWND;
s:String;
begin
If Code>=0 then
 begin
  if HiWord(GetKeyState(VK_MENU)) <> 0 then 
   begin
    if HiWord(GetKeyState(VK_CONTROL)) <> 0 then
     begin
      case wParam of //нажатая клавиша, сигнал которой отловила прога
       ....
       VK_MULTIPLY: //зажали ALT+CTRL+Num*
        begin
         KeyState:=GetKeyState(wParam); // это чтобы не было обработки ЗАжатия клавиши
         if (KeyState>=0) then b:=false;
         if (KeyState<0) and (b=false) then  //If KeyState < 0 Then "Нажата кнопка с кодом "
                              //Else = "Отпущена кнопка с кодом "
          begin
           b:=true;
           VolumeOnOff; // эт короче, чтобы выполнялось только ОДИН раз, если кнопка зажата
           s:=IntToStr(Temp); //текущая громкость
           SendMessage(CurrentF.Handle, MY_MESSAGE, 0, DWORD(PChar(s)));
          end;
        end;
      ............ //а до сюда уже не доходит :)

в форме CurrentF:

 ......

 const
   MY_MESSAGE = WM_USER + 4242;

 type
  TCurrentF = class(TForm)
  ......
     procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;
  
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CurrentF: TCurrentF;

implementation

procedure TCurrentF.MessageReceiver(var msg: TMessage);
 var
   txt: PChar;
 begin
   txt := PChar(msg.lParam);
   showMessage('Vnutri'); //контроль, дошли ли вообще до сюда
   msg.Result := 1;
   ShowWindow(CurrentF.Handle, SW_SHOWNOACTIVATE);
 end;

..........

Ну вроде бы основное написал....глюк в строке

SendMessage(CurrentF.Handle, MY_MESSAGE, 0, DWORD(PChar(s)));

ВсЁ, что послне неё - не обрабатывается уже.......в итоге можно сказать, что программа зависает. После одного нажатия Alt+Ctrl+Num* ничего уже не делается.... ((

[mihali4]

Класс!
Такого я еще не видел - создается форма CurrentF, и внутри себя самой она же сама себя объявляет своей "унутренней" переменной!
Можно узнать, для чего сей изыск?

[Vilux]

Сообщение от mihali4

Класс!
Такого я еще не видел - создается форма CurrentF, и внутри себя самой она же сама себя объявляет своей "унутренней" переменной!
Можно узнать, для чего сей изыск?

Не совсем понял юмор. А что тут не так?
Вот пример стандартного шаблона формы Дельфи

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

[mihali4]

Биг пардон! Это я, видимо, переутомился к вечеру...
Так что не удивляйтесь! Сейчас приму кофейку и снова в бой...

[mihali4]

s:=IntToStr(Temp); //текущая громкость
SendMessage(CurrentF.Handle, MY_MESSAGE, 0, DWORD(PChar(s)));
end;
end;
............ //а до сюда уже не доходит

Вот в этом куске вставляем:
s:=IntToStr(Temp); //текущая громкость

h:=Handle;

//Здесь ставим точку останова
SendMessage(CurrentF.Handle, MY_MESSAGE, 0, DWORD(PChar(s)));
end;
end;
............ //а до сюда уже не доходит
Останавливаемся и смотрим:
h имеет значение хэндла DLL
CurrentF.Handle неопределено, т.к. взять его неоткуда...

Т.е. то, о чем я уже написал выше...