Computername abfragen ...

[dschungelratte]

Moin Leutz,

ich hab wieder einmal eine Frasche :
Ich würde gerne den Namen des Computers auf dem mein Pog läuft auslesen und verabeiten. Mit Computernamen mein ich die "Registriert für" daten die als "Eigenschaften von System" angezeigt werden. Gibt es da irgendweine Funktion dafür ???

thx & cu ...
<dschungelratte>

[WEBSTER]

Salute,

der Name steht in der Registry.... musst du mal schauen, vielleicht hilft dir aber auch dieses Beispiel weiter. Dieses Beispiel ermittelt den Namen, mit dem der Computer im Windowsnetzwerk sichtbar ist. Wir setzen 2 Buttons auf ein Formular, einen zum Auslesen des aktuellen Computernames, einen weiteren zum Setzen eines neuen Namens. Hinzu kommt noch ein Edit-Feld zur Ausgabe des aktuellen beziehungsweise Eingabe eines neuen Computernames.

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
acName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of char;
nSize: Integer;
begin
nSize := MAX_COMPUTERNAME_LENGTH + 1;
if GetComputerName(acName, nSize) then begin
Edit1.Text := acName;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetComputerName(PChar(Edit1.Text))
end;


WEBSTER

[dschungelratte]

Moin WEBSTER !

Danke für deinen "Codeschnippsel"
Leider spuckt er mir noch einen Fehler aus bei dem mir auch die Hilfe nicht weiterhelfen kann.

An der Stelle :
if GetComputerName(acName, nSize) then begin

Meint der Compiler :
[Fehler] Unit1.pas(179): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Kannst du mir nochmal weiterhelfen ???
thx...


Zu dem anderen Ansatz :
Ich hab den Key in der Registrie gefunden.

Hive: HKEY_LOCAL_MACHINEPath: (Windows 9x) SOFTWARE\Microsoft\Windows\CurrentVersion (Windows NT/2000) SOFTWARE\Microsoft\Windows NT\CurrentVersionKeys: RegisteredOwner RegisteredOrganization

Jetzt ist mein Problem, wie ich den Wert dieses Schlüssels auslesen kann. Kann mir da jemand einen Tipp geben ???

thx @ all & cu ...
<dschungelratte>

[dschungelratte]

thx @ all !

... aber mein problem hat sich gerade erledigt
Ein Hoch auf die Borland Hilfe !!!

thx & cu ...
<dschungelratte>

[Snowball]

Hi!
Kurze Lösung für PC Nameunction
GetPCName:
string;
var size: DWord; buffer: array[0..255] of char;
begin
size:=SizeOf(buffer);
GetComputerName(buffer,size);
result:=StrPas(buffer);
end;

[dschungelratte]

@Snowball :
thx für deinen Tipp !

baer ich denke ich mach's doch über die Registry weil ich da erstens noch mehr abfragen kann, und zweitens den Namen gleich verändern kann
Für die die jetzt vielleicht noch wissen wollen wie man was aus der registry holt => schreibt mir ne' mail ... ich weiß es jetzt

cu & bye ...
<dschungelratte>