1.NT 还是 Windows 98?取得当前操作平台
Function GetOSInfo : String;
begin
Result := "";
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS: Result := "Windows 95/98";
VER_PLATFORM_WIN32_NT: Result := "Windows NT";
else
Result := "Windows32";
end;
end;
2．获取当前Windows用户的登录名
function GetCurrentUserName : string;
const
cnMaxUserNameLen = 254;
var
sUserName : string;
dwUserNameLen : Dword;
begin
dwUserNameLen := cnMaxUserNameLen-1;
SetLength( sUserName, cnMaxUserNameLen );
GetUserName(Pchar( sUserName ), dwUserNameLen );
SetLength( sUserName, dwUserNameLen );
Result := sUserName;
end;
3． Windows控制面板的访问
//在窗体的Private节中作ExecuteFile函数声明,并在实现部分书写如下代码：
function TForm1.ExecuteFile(const Params: String): Thandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle,
nil,StrPCopy(zFileName, "c:\windows\rundll32.exe"),
StrPCopy(zParams, Params),
StrPCopy(zDir, "c:\windows\"),
SW_SHOW);
end;
|
