Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Rechnernamen feststellen (https://www.delphipraxis.net/25206-rechnernamen-feststellen.html)

gkaeberich 2. Jul 2004 19:41
Rechnernamen feststellen
 
Hallo,

wie kann ich den Netbios-Namen des Rechners, auf dem mein Programm laufen soll, möglichst einfach feststellen ?

Danke

Günther

d3g 2. Jul 2004 19:49
Re: Rechnernamen feststellen
 
GetComputerName()

Ich hab zwar kein Windows, aber so sollte es gehen:
Delphi-Quellcode:
funtion GetNetBIOSComputerName(): String;
var
  buf: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
begin
  GetComputerName(@buf, MAX_COMPUTERNAME_LENGTH + 1)
  Result := buf;
end;

gkaeberich 4. Jul 2004 07:53
Re: Rechnernamen feststellen
 
Danke,

es klappt so in etwas abgewandelter Form

Günther


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:41 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz