kkuzil.own@gmail.com

Posted
Filed under Development/Delphi
출처 : http://oranke.elogin.co.kr/wiki/index.php/델파이

var
  Soo: DWORD;
 
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Soo := RegisterWindowMessage('TaskbarCreated'); // 메시지를 등록...
end;
 
...
 
procedure TForm1.WndProc(var wpMessage: TMessage);
begin
  if (wpMessage.Msg = Soo) then // 쉘이 다시 시작된 것이면...
  begin
     ShowMessage('쉘 다시 시작!!');
  end
  else
    inherited WndProc(wpMessage);
end;
2010/05/24 12:46 2010/05/24 12:46