unit1.pas

类似QQ抖动一样,在屏幕上抖几抖,非常使用,欢迎大家试用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, mmSystem; //mmSystem用于播放声音

type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$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;

end.