Два вопроса по специальным папкам...

[Titan123]

ответьте на эти вопросы, пожалуйста:
1. как можно получить путь к папке рабочего стола текущего пользователя?
2. наверное, это очень сложно, но как можно создать нового пользователя в системе XP? там пароль, имя установаить...
заранее спасибо!

[_SERGEYX_]

1:***************
uses
ActiveX, ShlObj;
*****************

function GetDeskTopPath : string; 
var 
  shellMalloc: IMalloc; 
  ppidl: PItemIdList; 
  PerDir: string; 
begin 
  ppidl := nil; 
  try 
    if SHGetMalloc(shellMalloc) = NOERROR then 
    begin 
      SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl); 
      SetLength(Result, MAX_PATH); 
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then 
        raise exception.create('SHGetPathFromIDList failed : invalid pidl'); 
      SetLength(Result, lStrLen(PChar(Result))); 
    end; 
  finally 
   if ppidl <> nil then 
         shellMalloc.free(ppidl); 
  end; 
end;

2.************* никогда не сталкивался

[NikLik]

2.

winexec('net user имя_пользователя пароль /active:yes /fullname:"Полное Имя Пользователя" /add', sw_hide);

Можешь в коммандной строке набрать net help user может ещё какие параметры интересные найдёшь.

[Titan123]

спасибо. помогло =)