پوشه ویندوز

[tami_1369]

سلام
-چجوری میشه folder windows رو پیدا کرد؟؟
-چجوری میشه User ویندوز کسی رو پیدا کرد؟

[علی کشاورز]

var
UserName,
WinDir : string;
BuffSize : integer;
PSize : Cardinal;
begin
//Get Windows Directory
SetLength(WinDir,Max_Path);
GetWindowsDirectory(PAnsiChar(WinDir),Max_Path);
SetLength(WinDir,StrLen(PAnsiChar(WinDir)));
Label1.Caption := WinDir;

//Get Current Username
SetLength(UserName,255);
BuffSize := Length(UserName);
PSize := Integer(Pointer(@BuffSize));
GetUserName(PAnsiChar(UserName),PSize);
SetLength(UserName,StrLen(PAnsiChar(UserName)));
Label2.Caption := UserName;
end;