Mega Code Archive

 

Categories / Delphi / System

 

Sisteme login olmus kullanici adinin alinmasi

function GetNetUser : Ansistring; var dwI : DWord; begin dwI := MAX_PATH; SetLength (Result, dwI + 1); if WNetGetUser (Nil, PChar (Result), dwI) = NO_ERROR then SetLength (Result, StrLen (PChar (Result))) else SetLength (Result, 0) end;