делфи систем инфо епт

  1. Donni

    Article Получение разной системной херни в Delphi

    function GetCompName: string; //имя компа var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end; function GetUser: String; //имя юзера var UserName : PChar; NameSize : DWORD; begin...