发表于 2009-1-5 19:48
| 
涓涓疄鐢ㄧ殑Delphi灞忓箷鎷疯礉绋嬪簭鐨勮璁
鍙戝竷: 2008-6-26 20:33 | 浣滆: admin | 鏌ョ湅: 32娆
width="84%">涓涓疄鐢ㄧ殑Delphi灞忓箷鎷疯礉绋嬪簭鐨勮璁
瀹佹尝甯傛父娌冲贩璐惧鏉
----Borland鍏徃锛堢幇鏀瑰悕涓篒NPRISE鍏徃锛夌殑DELPHI鏄綋鍓嶆渶涓烘柟渚跨殑Windows绋嬪簭璁
璁″伐鍏蜂箣涓銆傝澶氫汉浠ヤ负DELPHI鏄綔涓烘暟鎹簱寮鍙戝伐鍏峰嚭鐜扮殑锛屽叾瀹炵敤DELPHI
鍙互浠ユ瀬蹇殑閫熷害寮鍙戝嚭楂樻晥鐨刉indows绋嬪簭銆
----鐜板湪鎴戜滑灏辩敤DELPHI鏉ョ紪鍐欎竴涓疄鐢ㄧ殑灞忓箷鎷疯礉绋嬪簭銆傜灖鐬э紝涓嬮潰鐨勭敾闈㈠氨鏄墍缂栫▼搴忚繍琛屽悗杩涜鍖哄煙灞忓箷鎷疯礉鐨勪緥瀛愶紝杩樹笉閿欏惂锛
----Borland鍏徃鐨勫ぉ鎵嶈璁″笀浠敤鐢诲竷锛圱canvas锛夊璞″皝瑁呬簡Windows鐨勫ぇ閮ㄥ垎鍥惧舰
杈撳嚭鍔熻兘锛岃繖浣垮緱鎴戜滑鍙互閫氳繃浠栦互鏇寸洿瑙傜殑鏂瑰紡鍜學indows鐨勫睆骞曟墦浜ら亾锛岃屼笉蹇呭叧蹇冧护浜哄ご鐤肩殑WindowsAPI鍑芥暟銆備笅闈㈢殑涓灏忔绋嬪簭灏卞彲浠ュ疄鐜版暣涓
灞忓箷鐨勫浘璞℃嫹璐濅簡銆
var//鍙橀噺澹版槑
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
//------------------------------------------------------------
DC:=GetDC(0);//鍙栧緱灞忓箷鐨凞C锛屽弬鏁0鎸囩殑鏄睆骞
FullscreenCanvas:=TCanvas.Create;//鍒涘缓涓涓狢ANVAS瀵硅薄
FullscreenCanvas.Handle:=DC;//灏嗗睆骞曠殑DC璧嬬粰HANDLE
Fullscreen.Canvas.CopyRect
(Rect(0,0,screen.Width,screen.Height),
fullscreenCanvas,
Rect(0,0,Screen.Width,Screen.Height));
//鎶婃暣涓睆骞曞鍒跺埌BITMAP涓
FullscreenCanvas.Free;//閲婃斁CANVAS瀵硅薄
ReleaseDC(0,DC);//閲婃斁DC
//SCREEN瀵硅薄鏄疍ELPHI棰勫厛瀹氫箟鐨勫睆骞曞璞★紝鐩存帴浣跨敤灏辫浜嗐
----鐪嬩簡浠ヤ笂浠ｇ爜锛屼綘灏变細鍙戠幇鐢―ELPHI鍐欏睆骞曟嫹璐濈▼搴忕殑纭緢绠鍗曘
----褰撶劧瑕佸啓涓涓疄鐢ㄧ殑灞忓箷鎷疯礉绋嬪簭锛屽厜闈犱笂杩颁唬鐮佹槸涓嶅鐨勶紝涓嬮潰璁蹭竴涓嬩富瑕佺殑缂栫▼鎬濊矾锛
----1.鍏ㄥ睆骞曟嫹璐濈殑瀹炵幇
----棣栧厛闅愯棌鎷峰睆绋嬪簭锛屽欢闀夸竴瀹氭椂闂村悗锛屽埄鐢ㄤ笂杩扮殑绋嬪簭鍗冲彲瀹炵幇灞忓箷鐨
鎷疯礉銆
----2.鍖哄煙鎷疯礉鐨勫疄鐜
----瑕佸疄鐜板尯鍩熸嫹璐濊鐢ㄤ釜灏忔妧宸э紝棣栧厛璋冪敤鍏ㄥ睆骞曟嫹璐濈▼搴忔妸鏁翠釜灞忓箷鎷
璐濅笅鏉ワ紝鐒跺悗鎶婃嫹璐濅笅鏉ョ殑鍥捐薄鏄剧ず鍦ㄥ睆骞曚笂锛屼箣鍚庡氨鍙互璁╃敤鎴峰湪涓婇潰
閫夋嫨闇瑕佺殑鍖哄煙锛屾渶鍚庢墠灏嗙敤鎴烽夊畾鐨勫尯鍩熷鍒朵笅鏉ャ
----缂栫▼瀹炵幇锛
----1.棣栧厛鐢―ELPHI3寮涓涓伐绋嬨
----2.鍦‵ORM涓婃斁缃竴涓猅PANEL鍏冧欢锛岃缃瓵LIGN=ALTOP锛屽啀閫夐儴浠舵潯ADDITIONAL涓婄殑TSCROLLBOX锛屾斁鍒癋ORM涓婏紝璁剧疆ALIGN=ALCLIENT锛岀劧鍚庡湪SCROLLBOX涓婃斁缃竴涓猅IMAGE瀵硅薄銆
----3.鍦≒ANEL涓婃斁缃4涓寜閽紝鍒嗗埆涓篎ULLSCREEN锛孯EGIN锛孲AVE锛孍XIT銆
----4.瀹规槗骞茬殑鍏堝共锛屽湪EXIT鎸夐挳鐨凜LICK浜嬩欢閲屽啓涓嬩唬鐮
procedure TForm1.ExitClick(Sender:TObject);
begin
close;
end;
----5.鎺ョ潃鏄疄鐜板叏灞忓箷鎷疯礉浜嗭紝鍦‵ROM涓婃斁缃竴涓鏃跺櫒TTIMER锛孍NABLED璁句负FALSE锛孖NTERVAL璁句负500锛屼篃灏辨槸鍗婄閽熸縺娲讳竴娆°傚弻鍑籘IMER閮ㄤ欢锛屽啓涓婂涓嬬殑浠ｇ爜銆
procedure TForm1.Timer1Timer(Sender:TObject);
var
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
begin
timer1.Enabled:=false;//鍙栨秷鏃堕挓
Fullscreen:=TBitmap.Create;//鍒涘缓涓涓狟ITMAP鏉ュ瓨鏀惧浘璞
Fullscreen.Width:=screen.width;
Fullscreen.Height:=screen.Height;
DC:=GetDC(0);//鍙栧緱灞忓箷鐨凞C锛屽弬鏁0鎸囩殑鏄睆骞
FullscreenCanvas:=TCanvas.Create;//鍒涘缓涓涓狢ANVAS瀵硅薄
FullscreenCanvas.Handle:=DC;
Fullscreen.Canvas.CopyRect
(Rect(0,0,screen.Width,screen.Height),fullscreenCanvas,
Rect(0,0,Screen.Width,Screen.Height));
//鎶婃暣涓睆骞曞鍒跺埌BITMAP涓
FullscreenCanvas.Free;//閲婃斁CANVAS瀵硅薄
ReleaseDC(0,DC);//閲婃斁DC
//*******************************
image1.picture.Bitmap:=fullscreen;//鎷疯礉涓嬬殑鍥捐薄璧嬬粰IMAGE瀵硅薄
image1.Width:=fullscreen.Width;
image1.Height:=fullscreen.Height;
fullscreen.free;//閲婃斁bitmap
form1.WindowState:=wsNormal;//澶嶅師绐楀彛鐘
