有关写系统登录界面问题

Question

各位大侠:
      请问在Delphi中写系统登录界面时（用到Combobox1（输入用户名称）、Edit1（输入密码）、Button（确认）控件）Combobox1控件将如何获取到登录Windows的用户名？请提供代码？

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);  //确认
begin
  try
    With Table1 do
    begin
      Active:=False;
      TableName:=ExtractFilePath(Application.ExeName)+'log.dbf';
      Active:=True;                                          //打开数据库(此处用的是DBase数据库)      First;
      While not Eof do
      begin
        if ComboBox1.Text=Fields.Fields[0].AsString then   //查找用户名
        begin
          if Edit1.Text=Fields.Fields[1].AsString then     //密码正确
          begin
            MessageDlg('登录成功!',mtConfirmation,[mbOK],0);
            Form2.Show; //注:若要用到两个窗体,在Form1的Unit1文件中必须引用Unit2.pas
            //Form1.Hide;
          end
          else begin                                      //密码错误
            MessageDlg('密码错误!',mtConfirmation,[mbOK],0);
          end;
          break;
        end;
        Next;
      end;
      if Eof then   //未找到用户名
      begin
        MessageDlg('该用户名不存在!',mtConfirmation,[mbOK],0);
      end;
    end;
  except
  end;
end;

Answer 2

请问在一打开登录界面时Combobox1的初始值就是登录该Windows的用户名.代码该如何写?

Answer 3

楼主问的是怎么获取当前登陆WINDOWS的用户名吧?楼上理解错误.
我不会.UP一下

Answer 4

DELPHI中有个WIN32 API可以调用得到当前登录WINDOWS的用户名,查查API就知道了.

Answer 5

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