Computernamen abfragen

[Olaf König]

Hallo,

ich wieder, habe das Problem gelöst! Danke euch troz allem!! :-)

brauche Hilfe!!! Ich müsste in einer Applikation den Computernamen abfragen, nur fehlt mir eine Idee wie ich das realisieren kann!!

Ich wäre euch sehr dankbar, wenn mir einer einen Tip geben könnte...

Olaf

[Uli Becker]

<pre>
function bGetComputername: string;
var
FName : string;
pcComputer : PChar;
dwCSize : DWORD;
begin
FName := '';
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize );
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
FName := pcComputer;
finally
FreeMem( pcComputer );
end;
result := FName;
end;
</pre>

Viel Erfolg

Hallo Uli,

ich danke für deine Hilfe! Deine Lösung ist wesentlich eleganter als das was ich "gebastelt" habe!!!!

Bye Ola

[Rene P.]

hmmm Das ist für den eigenen Rechner

Wie kann man eine ganze Liste der Computer im Netzwerk antzeigen

[Mathias Simmack]

Such mal nach Beiträgen von Andreas Kosch (unter Netzwerk oder WinAPI ... ´s ist schon eine Weile her). Da dürftest du min. einen Beitrag finden, der deine Frage beantwortet. Ansonsten geht´s auch einfacher mit <b>SHBrowseForFolder</b> und der Angabe "BIF_BROWSEFORCOMPUTER". Da zeigt dir der von Windows bekannte Dialog auf Wunsch auch alle Netzwerkcomputer an, und du musst dich um das Einlesen nicht weiter kümmern. Die Frage wäre nur, ob dir die Art und Weise der "Präsentation" reicht.

Gruß,
Mathias