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）； ...