怎么获取当前登陆WINDOWS的用户名?

Question

怎么获取当前登陆WINDOWS的用户名?请提供代吗.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..255] of char;
  i: DWORD;
begin
  i:= 256;
  GetUserName(buf,i);
  showmessage(buf);
end;

Answer 2

不比那么麻烦的  直接在DOS 里面运行NET USER 命令就行啦

Answer 3

现可以获取用户名了,但我再想问一下:我现在想用Combobox控件获取,在Combobox没有连接数据库时可以(combobox的初始值为当前登录Windows的用户名),当连接数据库后就不能获取?该如何解决?

Answer 4

那要看你链接数据库后对combobox做了什么操作了。

Answer 5

新建form 加一个button
procedure TForm1.Button1Click(Sender: TObject);
var
    ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
    Size:Cardinal;  begin
      size:=MAX_COMPUTERNAME_LENGTH+1;
      getcomputername(computername,size);
      showmessage(strpas(computername));
end;