得到系统路径
var
s:pchar;
begin
getmem(s,255);
GetSystemDirectory(s,255);
edit1.Text:=s;
freemem(s);
end;
得到计算机名
var
p:pchar;
size:cardinal;
begin
getmem(p,255);
size:=255;
getcomputername(p,size);//getcomputername(p,255)会出现编译错误,知道的告诉我
edit1.Text:=p;
freemem(p);
posted on 2008-11-11 16:50
小叶子 阅读(265)
评论(0) 编辑 收藏 引用 所属分类:
delphi与电脑知识