我公司是NT Server,每一個Client端登入,在NT上都有建立使用者帳號, 今我要開發一個系統,要一執行立刻以Windows登入者帳號為預設值進入, 省去再Keyin一次帳號的步驟,User只要Keyin 密碼即可, 這段程式如何寫呢? 請高手幫幫忙,謝謝!

引言: 我公司是NT Server,每一個Client端登入,在NT上都有建立使用者帳號, 今我要開發一個系統,要一執行立刻以Windows登入者帳號為預設值進入, 省去再Keyin一次帳號的步驟,User只要Keyin 密碼即可, 這段程式如何寫呢? 請高手幫幫忙,謝謝!

用 GetUserName 可以取得目前的使用者名稱. ...Aquarius

從 Registry 取資料的方法 :    

function MyGetDomainOrWorkgroup: string;
var
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create(KEY_READ);
  Reg.RootKey := HKEY_LOCAL_MACHINE;      if (Reg.KeyExists('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon')) then
  begin
    Reg.OpenKey( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',False );
    Result := Reg.ReadString('DefaultDomainName');
  end
  else if (Reg.KeyExists('System\CurrentControlSet\Services\VxD\VNETSUP')) then
  begin
    Reg.OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP', False);
    Result := Reg.ReadString( 'Workgroup');
  end;
  Reg.CloseKey;
  Reg.Destroy;
end;    Function MyGetComputerName : String;
var
  reg: TRegIniFile;
begin
  reg := TRegIniFile.create('');
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('System\CurrentControlSet\Control\ComputerName',true);
    result := reg.ReadString('ComputerName','ComputerName','');
  finally
    reg.free;
  end;
end;    Function MyGetUserName : String;
var
  reg: TRegistry;
begin
  reg := TRegistry.create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\',true);
    result := reg.ReadString('Logon User Name');
  finally
    reg.free;
  end;
end;

*程式碼好像有參考網上資源及JCL不過太久忘了。

這段能在Windows 2000上取得帳號, Win98不行,如何修改呢? Function MyGetUserName : String; var reg: TRegistry; begin reg := TRegistry.create; try reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\',true); result := reg.ReadString('Logon User Name'); finally reg.free; end; end;

UserName 來說用 GetUserName 的 API 會較通用 使用 api 取 User Name / Computer Name 的方式 :    

var
PChar1 : PChar;
Size : DWORD;
begin
  Size := 20;
  PChar1 := AllocMem(Size);
  GetUserName(PChar1,Size);
  lbUser.Caption := PChar1;
  Size := 20;
  GetComputerName(PChar1,Size);
  lbCom.Caption := PChar1;
  FreeMem(PChar1);
end;