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 下载者源代码

Delphi 随机程序名

Delphi 播放背景音乐

Delphi中线程的释放

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi如何简单取得后缀名

Delphi rewrite 以可写方式打开文件

Delphi获取dll的函数列表

Delphi将图片转换成base64编码函数

Delphi xe5获取android imei id

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