本文整理自网络,侵删。
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运行时的问题,cannot focus a disabled or invisible window!
Delphi stringgrid 加载excel表格文件内容自动宽度
更多相关阅读请进入《Delphi》频道 >>