Den richtigen Computernamen ändern

[RWarnecke]

Hallo,

ich möchte gerne den richtige Computernamen ändern. Ich weiß das ich mit dem Befehl SetComputerName den NetBios-Namen ändern kann. Aber wie kann ich den richtigen Computernamen, also den unter Arbeitsplatz-->Eigenschaften-->Computernamen ändern ?

Ich habe es schon mit SetComputerNameA versucht, aber leider hat das nicht funktioniert. Habt Ihr da vielleicht eine Idee ?

[SirThornberry]

SetComputerName und SetComputerNameA ist das gleiche.

[Basilikum]

SetComputerNameEx

[RWarnecke]

Zitat von SirThornberry:

SetComputerName und SetComputerNameA ist das gleiche.

Und wie heißt dann der Delphi-Befehl für mein Problem, ich blicke gerade überhaupt nicht durch.

[Olli]

Zitat von RWarnecke:

Zitat von SirThornberry:

SetComputerName und SetComputerNameA ist das gleiche.

Und wie heißt dann der Delphi-Befehl für mein Problem, ich blicke gerade überhaupt nicht durch.

Es gibt zu vielen Funktionen ein Funktionspaar:

"FunctionA" und "FunctionW". Unter Delphi wird der Alias "Function" immer auf "FunctionA" abgebildet. In C/C++ wird der Alias "Function" je nach Einstellung von z.B. _UNICODE auf "FunctionW" oder "FunctionA" abgebildet. Sinn dahinter ist es, gleichzeitig Support für Unicode und ANSI zu bieten. Unicode ist in diesem Fall UCS2.

[RWarnecke]

Und wie wende ich ich jetzt den Befehl SetComputerNameEx im Delphi an ?

[Basilikum]

Zitat von RWarnecke:

Und wie wende ich ich jetzt den Befehl SetComputerNameEx im Delphi an ?

diese API ist in der Windows.pas nicht enthalten - demnach selber importieren:

Delphi-Quellcode:

Const
  kernel32                        = 'kernel32.dll';

Type
  COMPUTER_NAME_FORMAT            = (
                                     ComputerNameNetBIOS,
                                     ComputerNameDnsHostname,
                                     ComputerNameDnsDomain,
                                     ComputerNameDnsFullyQualified,
                                     ComputerNamePhysicalNetBIOS,
                                     ComputerNamePhysicalDnsHostname,
                                     ComputerNamePhysicalDnsDomain,
                                     ComputerNamePhysicalDnsFullyQualified,
                                     ComputerNameMax
                                    );


Function                          GetComputerNameEx
                                  (
                                    NameType : COMPUTER_NAME_FORMAT;
                                    lpBuffer : PChar;
                                    Var lpnSize : DWORD
                                  ) : BOOL; StdCall; External kernel32 Name 'GetComputerNameExA';

Function                          SetComputerNameEx
                                  (
                                    NameType : COMPUTER_NAME_FORMAT;
                                    lpBuffer : PChar
                                  ) : BOOL; StdCall; External kernel32 Name 'SetComputerNameExA';

Procedure ???
Begin
  SetComputerNameEx(ComputerNamePhysicalDnsHostname,'Globi');
end;

[RWarnecke]

Danke, Basilikum. Dein Codebeispiel funktioniert wunderbar. Ich habe mir das auch zusammen mit dem Ausschnitt aus der MSDN für den Befehl SetComputerNameEx angeschaut. Jetzt bleibt nur noch eine Frage offen. Kann ich das gleiche Verfahren auch auf andere Befehle aus der MSDN anwenden ?

[Olli]

Zitat von RWarnecke:

Kann ich das gleiche Verfahren auch auf andere Befehle aus der MSDN anwenden ?

Ja.

Hier findest unter anderem eine Anleitung wie du die Typen aus dem PSDK in Delphi umsetzt.

[RWarnecke]

Zitat von Basilikum:

Delphi-Quellcode:

Procedure ???
Begin
  SetComputerNameEx(ComputerNamePhysicalDnsHostname,'Globi');
end;

Warum funktioniert dieser Aufruf nicht mit einer Variable ? Wenn ich statt 'Globi' eine Variable an die Stelle schreibe, streikt die Funktion SetComputerNameEx. Warum ?