2021年12月18日
Delphi获取当前计算名用户名代码
摘要： procedure TForm1.Button1Click(Sender: TObject);var pp:pChar; ss:String; ii:DWORD;begin GetMem(pp,255); ii:=255; GetUserName(pp,ii); ss:=StrPas(pp); Sh 阅读全文
posted @ 2021-12-18 11:21 vov5601 阅读(82) 评论(0) 推荐(0) 编辑