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?
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
met dank aan Harry Stahl:
je dient wel de in uses het volgende op te nemenCode: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;
Code:{$IFDEF MACOS} POSIX.StdLib, Posix.UniStd, {$ENDIF} {$IFDEF MSWINDOWS} ShellAPI, Windows, {$ENDIF}
Erik
Dank je Erik. Mij google resultaten leverden niets op.
Delphi is great. Lazarus is more powerfull
http://www.amazon.com/Cross-Platform.../dp/151176600X
heeft me al veel tijd bespaard
Erik
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks