仓库管理软件版1楼: 我的程序是在2000下做的，但是到了98下Label的位置移动了许多，图片的大小也改变了
窗体的大小也改变了，图片拉伸了，我问一下这是为什么呀,怎么解决呀我非常的着急

2楼: 判断操作系统，win9x系统使用宋体9号字,win2k后的系统使用Tahoma字体8号字。

图片大小也会变化？应该不会吧！ 如进销存使用说明书

3楼: 是呀图片的大小也改变了，我怎么判断操作系统呀

4楼: 窗体的scaled改成false试试

5楼: 谢谢，我正在修改，如果成功了，分不是问题

6楼: 以下代码全部给你了：
type TOSInfo=record
XtMajorVersion:Cardinal;
XtMinorVersion:Cardinal;
XtBuildNumber:word;
XtOsPlatform:string;
Xtisnt:boolean;
XtCSD:string;
XtTimeZone:string;
XtVersion:string;
XtRegisteredUser:string;
XtRegisteredOrg:string;
XtSerialNumber:string;
end;

function GetOperatingSystemInfo(var vOSInfo:TOSInfo):boolean;
var
OS :TOSVersionInfo;
// p :pchar;
// n :DWORD;
const
rkTimeZone = {HKEY_LOCAL_MACHINE＼}＇＇SYSTEM＼CurrentControlSet＼Control＼TimeZoneInformation＇＇;
rvTimeZone = ＇＇StandardName＇＇;
rkOSInfo95 = {HKEY_LOCAL_MACHINE＼}＇＇SOFTWARE＼Microsoft＼Windows＼CurrentVersion＇＇;
rkOSInfoNT = {HKEY_LOCAL_MACHINE＼}＇＇SOFTWARE＼Microsoft＼Windows NT＼CurrentVersion＇＇;
rvVersionName95 = ＇＇Version＇＇;
rvVersionNameNT = ＇＇CurrentType＇＇;
rvRegOrg = ＇＇RegisteredOrganization＇＇;
rvRegOwn = ＇＇RegisteredOwner＇＇;
rvProductID = ＇＇ProductID＇＇;
begin
result:=true;
try
ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize:=SizeOf(OS);
GetVersionEx(OS);
vOSInfo.XtMajorVersion:=OS.dwMajorVersion;
vOSInfo.XtMinorVersion:=OS.dwMinorVersion;
vOSInfo.XtBuildNumber:=word(OS.dwBuildNumber);
case OS.dwPlatformId of
VER_PLATFORM_WIN32s :vOSInfo.XtOsPlatform:=＇＇Windows 3.1x＇＇;
VER_PLATFORM_WIN32_WINDOWS :vOSInfo.XtOsPlatform:=＇＇Windows 95＇＇;

VER_PLATFORM_WIN32_NT :vOSInfo.XtOsPlatform:=＇＇Windows NT＇＇;
end;
if vOSInfo.XtMajorVersion>4 then
vOSInfo.XtOsPlatform:=＇＇Windows 2000＇＇;
vOSInfo.XtCSD:=strpas(OS.szCSDVersion);
vOSInfo.XtTimeZone:=＇＇＇＇;
vOSInfo.XtVersion:=＇＇＇＇;
vOSInfo.XtRegisteredUser:=＇＇＇＇;
vOSInfo.XtRegisteredOrg:=＇＇＇＇;
vOSInfo.XtSerialNumber:=＇＇＇＇;
//Xtisnt:=(OS.dwPlatformId=VER_PLATFORM_WIN32_NT);
vOSInfo.Xtisnt:=(vOSInfo.XtMajorVersion>4);
with TRegistry.create do begin
rootkey:=HKEY_LOCAL_MACHINE;
if openkey(rkTimeZone,false) then begin
if valueexists(rvTimeZone) then
vOSInfo.XtTimeZone:=readstring(rvTimeZone);
closekey;
end;
if vOSInfo.Xtisnt then
begin
if openkey(rkOSInfoNT,false) then begin
if valueexists(rvVersionNameNT) then
vOSInfo.XtVersion:=readstring(rvVersionNameNT);
if valueexists(rvRegOrg) then

vOSInfo.XtRegisteredOrg:=readstring(rvRegOrg);
if valueexists(rvRegOwn) then
vOSInfo.XtRegisteredUser:=readstring(rvRegOwn);
if valueexists(rvProductID) then
vOSInfo.XtSerialNumber:=readstring(rvProductID);
closekey;
end;
end else begin
if openkey(rkOSInfo95,false) then begin
if valueexists(rvVersionName95) then
vOSInfo.XtVersion:=readstring(rvVersionName95);
if valueexists(rvRegOrg) then
vOSInfo.XtRegisteredOrg:=readstring(rvRegOrg);
if valueexists(rvRegOwn) then
vOSInfo.XtRegisteredUser:=readstring(rvRegOwn);
if valueexists(rvProductID) then
vOSInfo.XtSerialNumber:=readstring(rvProductID);
closekey;
end;
end;
end;
except
result:=false;
end;
end;

仓库管理软件版7楼: 就俩处:
1. Form 的字体:宋体 小五 字符集:chinese_GB2312
2. Form 的scaled改成false

肯定OK

8楼: 系统的所有窗体均从一个根窗口继承，然后根窗口按照楼上所说的来设置，这样整个系统无论在什么操作系统下都是一个样子了

9楼: 建议将窗体基类的字体改为宋体9号（小五），chinese_GB2312

10楼: 谢谢大家接分

11楼: 分没发啊
是不是等我呢？
嘿嘿

12楼: 多人接受答案了。 如免费库存管理软件