delphiµÄ×ÊÔ´Îļþ

ºÜ¹ÅÀÏ»°ÌâÁË£¬²»¹ý½ñÌìÅöµ½ÁË£¬¾Í¼ñÆðÀ´Ñо¿ºÍ×ܽáһϡ£
delphi¿ÉÒ԰Ѹ÷ÖÖ×ÊÔ´ÎļþÕûºÏµ½exeÎļþÖУ¬ÕâÑùµ÷ÈëËٶȿ졣
Ò» bmpͼÏñ£¬ÓÐÁ½ÖÖ·½·¨
procedure TfrMain.btnCanvasPic(Sender: TObject);
var bBitmap : TBitmap;
begin
 bBitmap := TBitmap.Create;
 try
  bBitmap.Handle := LoadBitmap(hInstance, 'ATHENA');
  Image1.Width := bBitmap.Width;
  Image1.Height := bBitmap.Height;
  Image1.Canvas.Draw(0,0,bBitmap);
 finally
  bBitmap.Free;
 end;
end;
ÁíÒ»ÖÖ°ì·¨£º
procedure TfrMain.btnLoadPicClick(Sender: TObject);
begin
 Image1.Picture.Bitmap.
   LoadfromResourceName(hInstance,'EARTH');
end;
¶þ ¹â±êÎļþ
procedure TfrMain.btnUseCursorClick(Sender: TObject);
 const NewCursor = 1;
begin
 Screen.Cursors[NewCursor] :=
    LoadCursor(hInstance,'CURHAND');
 Image1.Cursor := NewCursor;
end;
Èý iconÎļþ
public
    nrIco : Integer;
  MinIcon : array[0..1] of TIcon;
...
procedure TfrMain.FormCreate(Sender: TObject);
begin
 MinIcon[0]:=TIcon.Create;
 MinIcon[1]:=TIcon.Create;
 MinIcon[0].Handle:=LoadIcon(hInstance,'ICOOK');
 MinIcon[1].Handle:=LoadIcon(hInstance,'ICOFOLD');
 NrIco:=0;
 Timer1.Interval:=200;
end;
...
procedure TfrMain.Timer1Timer(Sender: TObject);
begin
 if IsIconic(Application.Handle) then begin
  NrIco:=(NrIco+1) mod 2;
  Application.Icon:=MinIcon[NrIco];
 end;
end;
...
procedure TfrMain.FormDestroy(Sender: TObject);
begin
 MinIcon[0].Free;
 MinIcon[1].Free;
end;