Domain adını nasıl alabilirim (Çözüldü)

[adelphiforumz]

s.a.
Öncelikle herkese hayırlı ramazanlar
programın çalıştığı makina domainde ise hangi domande olduğunu nasıl bulabilirim.
bunun için bir komut varmı
yardımlarınız için teşekkürler

[Lanista]

Kod: Tümünü seç

function FreeBuffer(lpBuffer : Pointer):integer;
Type
    Type_NetApiBufferFree = function(Buffer: Pointer): integer; stdcall;
var
    iResultCode : integer;
    lngResultCode : LongInt;
    _NetApiBufferFree : Type_NetApiBufferFree;
begin
    Try
        iResultCode:=LoadLibrary(pchar('NetAPI32.dll'));
        @_NetApiBufferFree:=GetProcAddress(iResultCode,pchar('NetApiBufferFree'));
        lngResultCode:= _NetApiBufferFree(lpBuffer);
        FreeLibrary(iResultCode);
    Finally
    end;
end;


function IsInDomain:Boolean;
type
    Type_NetGetJoinInformation = function(lpServer: LPCWSTR; lpNameBuffer: LPWSTR; BufferType: pointer): longint; stdcall;
var
    b : longint;
    d : LPWSTR;
    iResultCode : integer;
    lngResultCode : LongInt;
    _NetGetJoinInformation : Type_NetGetJoinInformation;
begin
    Result:=False;
    try
        iResultCode:=LoadLibrary(pchar('NetAPI32.dll'));
        @_NetGetJoinInformation:=GetProcAddress(iResultCode,pchar('NetGetJoinInformation'));
        lngResultCode:= _NetGetJoinInformation(nil, @d, @b);
        FreeLibrary(iResultCode);
        // This contains the domain or workgroup name
//        sLanGroupName:=(WideCharToString(d));
        if b = 3 then  //EĞER MAKİNA DOOMAİNDE İSE
            ShowMessage(WideCharToString(d));
        FreeBuffer(d);
    finally
    end;
end;

domainle ilgili bayağı ugraştım. başka bir aklınıza takılan birşey varsa cevaplamaya çalışırım.

[adelphiforumz]

s.a.
yardımınız için teşekkür ederim.