Results 1 to 4 of 4

Thread: computernaam in FMX

  1. #1
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747

    computernaam in FMX

    In VCL haal ik de computernaam op. In FMX kan dat weer niet. Nu heb ik TOSVersion gevonden, welke niet de naam geeft van de computer.
    Is er een andere manier om aan die info te komen?
    Delphi is great. Lazarus is more powerfull

  2. #2
    Senior Member ErikB's Avatar
    Join Date
    Aug 2010
    Location
    Biddinghuizen
    Posts
    509
    met dank aan Harry Stahl:

    Code:
    function  LeesComputernaam:string;
    const MAX_COMPUTERNAME_LENGTH = 254;
    var
      buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
      buf   : array[0..255] of AnsiChar;
      Size: Cardinal;
    begin
    {$IFDEF MSWINDOWS}
      Size := MAX_COMPUTERNAME_LENGTH + 1;
      Windows.GetComputerName(@buffer, Size);
      Result := StrPas(buffer);
    {$ENDIF}
    {$IFDEF MACOS}
      if gethostname(buf,sizeof(buf)) <> -1 then
      begin
        Result := UTF8ToUnicodeString(buf);
        if pos('.local',Result) <> 0 then
        begin
          Result := copy(Result,1,pos('.local',Result)-1);
        end;
      end;
    {$ENDIF}
    end;
    je dient wel de in uses het volgende op te nemen

    Code:
      {$IFDEF MACOS}
      POSIX.StdLib, Posix.UniStd,
      {$ENDIF}
      {$IFDEF MSWINDOWS}
      ShellAPI, Windows,
      {$ENDIF}
    Erik

  3. #3
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747
    Dank je Erik. Mij google resultaten leverden niets op.
    Delphi is great. Lazarus is more powerfull

  4. #4
    Senior Member ErikB's Avatar
    Join Date
    Aug 2010
    Location
    Biddinghuizen
    Posts
    509
    Erik

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •