怎样获取登陆系统的所有用户名

Question

GetUserName只能获取当前登陆系统的用户名
但我要获取登陆系统的所有用户名又应该怎么实现呢?
谁有没有比较好的办法,分不够再加.

Answer 1

通过注册表项：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths 看能否解决你的问题。

Answer 2

对了 怎么得到某个文件夹下的所有文件名称啊??
比如在D:\MyWork文件夹下 有三个文件
MyProcjects,MyFiles,MyBook
怎样得到这三个文件夹的名字呢??

Answer 3

遞歸獲取文件名稱:function   ShowDirectory(NowPath:string):Boolean;
var
  search:TSearchRec;
  ret:integer;
  key:string;
begin
  if NowPath[Length(NowPath)]<>'\'   then
    NowPath:=NowPath+'\';
  key:=Nowpath+'*.*';
  ret:=findFirst(key,faanyfile,search);
  while ret =0 do
  begin
    if ((search.Attr and fadirectory)=faDirectory)then
    begin
      if(Search.Name<>'.')and(Search.name<>'..')   then
        ShowDirectory(NowPath+Search.name);
    end else
    begin
      if((search.attr and fadirectory)<>fadirectory)then
      begin
        showmessage(NowPath+search.name);
      end;
    end;
  end;
  findClose(search);
  removedir(NowPath);
  result:=True;
end;

Answer 4

GetUserName只能获取当前登陆系统的用户名 
但我要获取登陆操作系统的所有用户名又应该怎么实现呢? 
谁有没有比较好的办法,分不够再加.