system message (2000年12月29日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 32 行

system message (2000年12月29日) 

网友更新  分类:Win API   作者: maming(推荐)  推荐:maming   阅读次数:526  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure 1; 
var windir:pchar; 
sysdir:pchar; 
begin 
getmem(windir,256);／／获得内存 
getmem(sysdir,256);／／获得内存 
GetWindowsDirectory(Windir,128);／／获得安装目录 
GetSystemDirectory(sysdir,128);／／获得系统目录 
showmessage(‘Windows目录是:'＋windir); ／／显示安装目录 
showmessage(‘System目录是:'＋sysdir); ／／显示系统目录 
freemem(windir,256);／／释放内存 
freemem(sysdir,256);／／释放内存 
end; 
----------------------------------------------------------------------
procedure 2
var ver:integer;／／版本号 　 major:integer;／／主版本号 　 minor:integer;／／次版本号 
begin 
ver:=getversion();／／获得版本号 
major:=ver and 255;／／获得主版本号 
minor:=(ver and 255＊256)div 256; ／／获得次版本号 
showmessage(‘系统版本号是：’＋inttostr(ver)); ／／显示版本号 
showmessage(‘系统主版本号是：'＋inttostr(major));／／显示主版本号 
showmessage(‘系统次版本号是：'＋inttostr(minor));／／显示次版本号 
end;