第45题):如何获取当前登陆操作系统的用户名? 第45题):如何获取当前登陆操作系统的用户名?简单题望赐教! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GUserName: String;var pcUser : PChar; dwUSize : DWORD;begin dwUSize := 21; result:=''; GetMem( pcUser, dwUSize ); try if Windows.GetUserName( pcUser, dwUSize ) then Result := pcUser finally FreeMem( pcUser ); end;end; IdTCPServer稳定性的问题 碰到两个小问题,一个是关于在电脑上做记录,一个是关于在DLL里关闭主程序.谢谢 急!! 高分求助! 一个MDI问题 一个想了很久的MDIFORM问提 帮忙啊! 各位高手请帮帮我! 简单和SQL。。。。。。。。。。。。。 如何将delphi的繁体变为简体,在线等。。。。 如何改变memo的大小 关于VAR的用法 怎么让Tedit中的文字居中啊? (急!) 怎么卸载安装的activeX控件?(安装了个mapx4.5的activx控件,现在安装mapx5,不知道怎么卸载mapx4.5)
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21;
result:='';
GetMem( pcUser, dwUSize );
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser );
end;
end;