delphi如何获取屏幕的分辨率
屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
HDC hdc, //
device-context handle
int nIndex // index
of capability to query
);
LOGPIXELSX
Number of pixels per logical inch along the screen
width.
LOGPIXELSY Number of pixels per logical inch
along the screen height.
当我们需要获取所运行程序时计算机的分辨率时，有两种方法：①可以通过访问Delphi提供的SCREEN全局变量，即SCREEN.WIDTH和
SCREEN.HEIGHT以像素点给出屏幕的分辨率。②利用Windows的API函数GetDeviceCaps()来得到所用显示器的分辨率，源代
码如下：
Application.Initialize；
Application.CreateForm(TForm1， Form1)；
CASE GetDeviceCaps(GetDC(Form1.Handle)，HORZRES) of
640 ： //对640×480分辨率进行处理的代码；
800 ： //对800×600分辨率进行处理的代码；
1024： //对1024×768分辨率进行处理的代码；
1280： //对1280×1024分辨率进行处理的代码；
END；
总结：谢谢各位朋友的奉献，可以放置以show事件中，而且用self引用，可降低出错概率！
相关文档：
1、当然是先要卸载以前安装的Ehlib组件了，在菜单的“Component”的“install Packeges”里，选择ehlib XX，选择“Remove”。
2、接下来在库里加入这个控件的引用路径，先新建一个文件夹，比如“D:\Component\Ehlib”（最好把要安装的控件都拷贝到这个Component目录下），然后把 ......
......
同步程序案例
procedure TGetOrderThread.PostDB(webnr:WideString);
var
Err: String;
SetWebnr:WideString;
xmlDoc: IXMLDocument;
root: IXMLNode;
rowc: IXMLNode;//记录数
rows: IXMLNodeList;//主记录列表
row: IXMLNode;
drows: IXMLNodeList;// ......
用Delphi作的程序的源代码中常见的文件扩展名，并给出了这些文件扩展名的意义，以便源代码管理时作为参照，扩展名以字母为序（不需要进源代码库不表示不需要进库）。
~*
Delphi生成的备份文件，在版本控制库及发布代码中不应该出现这些文件，如果修改了某个文件却因某些原因没有保存的话，可以尝试使用这些文件� ......
1、首先将delphi中Controls单元提取
2、修改Controls单元中如下部分：
procedure TWinControl.CreateParams(var Params: TCreateParams);
begin
FillChar(Params, SizeOf(Params), 0);
with Params do
begin
Caption := FText;
Style := WS_CHILD or WS_CLIPSIBLINGS;
&nbs ......
