[Nyctos Kasignete]

Код:

const
  FILEPATH = 'comps.txt'; // например
var
  comps: TStringList;
  i: Integer;
  Str: string;
  username: PChar;
  unsize: DWORD;
begin
  comps := TStringList.Create;
  GetMem(username, 255);
  try
    if not GetUserName(username, unsize) then Exit;
    if not FileExists(FILEPATH) then Exit;
    comps.LoadFromFile(FILEPATH);
    Str := Copy(comps.Text, 1, Pos(#13#10, comps.Text) + 2);
    if (Pos(' ' + StrPas(username) + ' ', str) = 0) and
       (Pos(' ' + StrPas(username) + #13, str) = 0) then
    begin
      for i := 0 to comps.Count - 1 do
        comps.Strings[i] := comps.Strings[i] + ' ' + StrPas(username);
      comps.SaveToFile(FILEPATH);
    end;
  finally
    comps.Free;
    FreeMem(username, 255);
  end;
end;

А как связана функция GetUserName с именем компьютера?