Computernamen abfragen

[Olaf König]

Hallo,

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

[Max Reinhardt]

Hallo, <br>

bei mir funktioniert dies: <br>
<br>
<br>
procedure TForm1.Button1Click(Sender: TObject); <br>
var cp:String; <br>
buf: Pointer; <br>
bufsize:dword; <br>
begin <br>
Memo1.Clear; <br>
bufsize := 254; <br>
GetMem(buf,bufsize); <br>
if GetComputerName(buf,bufsize) <br>
then begin <br>
cp := StrPas(buf); <br>
Memo1.Lines.Add(cp); <br>
end <br>
else Memo1.Lines.Add('Fehler!'); <br>
FreeMem(buf); <br>
end; <br>
<br>
<br>
Gruss <br>
Max <br&gt

[Uli Becker]

Hallo Olaf,

bitte stelle in Zukunft eine Frage nur noch in einem Bereich. (Bei COM-DCOM ist sie ohnehin nicht passend :-