请问如何取得屏莫的分辩率啊？

liuer 2002-08-25 07:22:19

请问如何取得屏莫的分辩率啊？如何取得不同用户各自的IE收藏夹目录啊？谢了

...全文

89 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

goodhazel 2002-08-26

打赏
举报

呵呵，我也是运气了，刚好会
我的邮箱hazelmake@sina.com
也可以给我发短信呦

liuer 2002-08-25

打赏
举报

小猪很聪明哦，可否留下邮箱，我想请教请教，分给你，那个阿林只给1分

adventurezl 2002-08-25

打赏
举报

我想说的goodhazel(小猪)都说完了.

oracle_lover 2002-08-25

打赏
举报

Edit1.Text :=inttostr(GetSystemMetrics(0))+'*'+inttostr(GetSystemMetrics(1));

goodhazel 2002-08-25

打赏
举报

IE收藏夹目录
function TMainForm.GetFavDir: String;
//获得收藏夹的目录
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False) then
Result :=Reg.ReadString('Favorites');
finally
Reg.CloseKey;
Reg.Free;
End;
end;

goodhazel 2002-08-25

打赏
举报

var
屏莫的分辩率
x:longint;
a:string;
begin
x := GetSystemMetrics(SM_CXSCREEN);
Str(x,a);
Label1.Caption := '显示器水平分辨率' + a;
x := GetSystemMetrics(SM_CYSCREEN);
Str(x,a);
Label2.Caption := '显示器垂直分辨率' + a;
end;