delphi-获取电脑名称跟当前用户临时目录

最新推荐文章于 2022-07-30 22:52:49 发布

u010280659

最新推荐文章于 2022-07-30 22:52:49 发布

阅读量247

点赞数

分类专栏： delphi 文章标签：其他

本文链接：https://blog.csdn.net/u010280659/article/details/121801584

版权

delphi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

delphi-获取电脑名称跟当前用户临时目录

function Tmainfrm.getusertempDir: string;
var
buffer: array[0…MAX_Path + 1] of Char;
Size: Cardinal;
begin
Size := MAX_Path + 1;
Windows.GetTempPath(size,@buffer);
Result:= StrPas(buffer);
end;

function Tmainfrm.getcomputerName: string;
var
buffer: array[0…MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result:= StrPas(buffer);
end;