Use Jpeg procedure TForm1.snapscreen(a,b,c,d:Integer); var bmpscreen:Tbitmap; jpegscreen:Tjpegim ...

...

...

-- 1將菜單項移到菜單欄的最右邊 　　在一些應用程序中，常把一些特殊的菜單項放在菜單欄的最右邊（如WPS2000 中的"定制界面"菜單，一些應用程序的幫助菜單），這些菜單項放在菜單欄 （men ...

繪制delphi窗體的標題欄 按照設計，Delphi窗體的“標題”屬性是由Windows負責繪制，標題欄在系統菜單旁邊。如果你不想改變窗體的標題屬性又想在窗體的標題欄添加一些自己的內容，你需要處理一個 ...

{根據文件的名字得到此文件在系統中對應大小的圖標large=true(64*64) false(32*32)}procedure GetFileIcon(TypeName: Widestring; I ...

函數功能：該函數獲得有關指定窗口的信息，函數也獲得在額外窗口內存中指定偏移位地址的32位度整型值。 函數原型：LONG GetWindowLong（HWND hWnd，int nlndex）； ...