GetComputerNameEx hvordan?

Kan du ikke bruge noget af dette :

function GetComputerNameStr : string;
var
  Buffer : array[0..MAX_COMPUTERNAME_LENGTH - 1] of Char;
  Len : DWord;
begin
  Len:=SizeOf(Buffer);
  if GetComputerName(@Buffer, Len) then
    Result:=string(Buffer)
  else
    Result:='';
end;

Det er så brug af GetComputerName og ikke GetComputerNameEx. Problemet er at GetComputerName ikke tager det FULDE navn.

ok, måske det kunne hjælpe lidt på vej, kigger på det senere, hvis du ikke får svar :)

Prøv dette:

http://groups.google.dk/group/borland.public.delphi.nativeapi.win32/tree/browse_frm/thread/1f36339aec334929/fee0759cd580b60b?rnum=1&q=ComputerNameDnsFullyQualified+delphi&_done=%2Fgroup%2Fborland.public.delphi.nativeapi.win32%2Fbrowse_frm%2Fthread%2F1f36339aec334929%2Ffee0759cd580b60b%3Ftvc%3D1%26q%3DComputerNameDnsFullyQualified+delphi%26#doc_329ec22d5e77d2ef

Har ikke lige Delphi installeret, så jeg kan ikke lige selv teste det.

Så fik jeg det testet, og lavet en lille funktion til det.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

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

implementation

function GetComputerNameEx(NameType: COMPUTER_NAME_FORMAT; lpBuffer: LPSTR;
    var nSize: DWORD): BOOL; stdcall; external kernel32 name 'GetComputerNameExA';

{$R *.DFM}

Function GetFullComputerName: String;
var
  dSize: dword;
  sResult: string;
begin
  SetLength(sResult, 255);
  dSize := 255;
  GetComputerNameEx(ComputerNameDnsFullyQualified,pchar(sResult), dSize);
  if dSize > 1 then
    Result := sResult
  else
    Result := '(nil)';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := GetFullComputerName;
end;

end.

Fandt du ud af det? :)

safl: Fik du det til at virke? :)

Takker for hjælpen jeg glemte helt eksperten ;)