tami_1369
شنبه 18 تیر 1384, 16:44 عصر
سلام
-چجوری میشه folder windows رو پیدا کرد؟؟
-چجوری میشه User ویندوز کسی رو پیدا کرد؟
vcldeveloper
یک شنبه 19 تیر 1384, 03:48 صبح
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;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.