资源文件的应用

通常在Delphi的应用程序中会调用到很多的资源，例如图片，动画（AVI），声音，甚至于别的执行文件。
ResICO ICON "example.ico" //加入图标
ResCursor Cursor "example.cur" //加入光标
ResBitmap Bitmap "example.bmp" //加入位图
ResAVI AVI "example.avi" //加入视频
ResWav WAVE "example.wav" //加入视频

{$R ResDefine.RES}

procedure TResourceForm.FormCreate(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(hInstance,'ResICO');
Application.Title := '资源文件使用集合';
ResourceForm.Caption := '资源文件使用集合--[Delphi编程驿站：http://yckxzjj.vip.sina.com]';
end;

procedure TResourceForm.Image1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
//把MMSystem加入到Interface的uses单元中
PlaySound('ResWav',HInstance,Snd_ASync or Snd_Memory or snd_Resource) ;
end;

procedure TResourceForm.AVIPlayBtnClick(Sender: TObject);
begin
Animate1.ResName :='ResAVI' ; //资源标识
Animate1.Active :=True ;
end;

procedure TResourceForm.BmpShowBtnClick(Sender: TObject);
begin
//Image1.Picture.Bitmap.Handle :=LoadBitmap(hInstance,'ResBitmap');
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'ResBitmap');
Image1.Visible := True;
end;

procedure TResourceForm.CursorUpdateBtnClick(Sender: TObject);
begin
Screen.Cursors[1] :=LoadCursor(hInstance,'ResCursor');
//Image1.Cursor := 1;
ResourceForm.Cursor :=1;
end;