출처 : 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;
- Posted
- Filed under Development/Delphi