delphi 调用QQ消息窗

时间:2011-5-26来源:yang 作者: peng点击: 29次

调用示例：
procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
  P: procedure(Title, Msg: String; IsExitProcess: Boolean = False;
               DelayTime: Integer = 7; uType: Integer = 64); stdcall;
begin
  H := LoadLibrary(PChar(‘QQMsg.dll‘));
  if H <> 0 then
  begin
    P := GetProcAddress(H, PChar(‘ShowQQMsg‘));
    if Assigned(P) then
      P(‘这不是一个QQ消息‘, ‘你可以设定该提示窗口显示的时间（默认为7秒）及图标。‘);
  end;
end;

也可作如下声明后再调用：
procedure ShowQQMsg(Title, Msg: String; IsExitProcess: Boolean = False;
DelayTime: Integer = 7; uType: Integer = 64); stdcall; external ‘QQMsg.dll‘;