Delphi仿QQ窗口抖动的代码

本文整理自网络，侵删。

 
uses  mmSystem; //mmSystem用于播放声音


{$R SOUND.RES} //编译声音资源，声音资源的制作方法，这里不再赘述
procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
  PlaySound('Shake', 0, SND_RESOURCE or SND_ASYNC);
  for I := 0 to 4 do begin
    Self.Top := Self.Top - 3; Sleep(40);
    Self.Left := Self.Left - 3; Sleep(40);
    Self.Top := Self.Top + 3; Sleep(40);
    Self.Left := Self.Left + 3; Sleep(40);
  end;
end;
 

相关阅读 >>

Delphi实现注册表的操作

datasnap服务器如何得到客户端的ip和端口

Delphi 运行时提升软件到管理员权限

Delphi idhttp 实战用法(tidhttpex)

Delphi xe10 获取屏幕截图

Delphi 检查父进程

Delphi 通过进程名获得文件全路径的函数

Delphi 进程之间传递cmd参数

Delphi xe 可用的md5算法

vclzip 3.10.1的简单使用示例

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi仿QQ窗口抖动的代码