怎样得到主域服务器名称

时间:2010-02-26 18:24:25  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:har);end;function PDCName : string;VAR out_s:LPWSTR;s:string;begin  out_s:=LPWSTR(stralloc(255));  Result:='';  if NetGetDCName(nil,nil,LPBYTE(out_s))=NERR_Success then  begin    getfromunicode(s,out_s);   &...
  正文:procedure getfromunicode(VAR s:string;unicode_s:LPWSTR);
VAR tempchar:array[0..255] of char;
begin
  WideCharToMultiByte(CP_ACP,0,unicode_s,-1,tempchar,256,nil,nil);
  s:=Strpas(tempchar);
end;


function PDCName : string;
VAR out_s:LPWSTR;
s:string;
begin
  out_s:=LPWSTR(stralloc(255));
  Result:='';
  if NetGetDCName(nil,nil,LPBYTE(out_s))=NERR_Success then
  begin
    getfromunicode(s,out_s);
    Result:=s;
  end;
  NetApiBufferFree(LPBYTE(out_s));
end;

"怎样得到主域服务器名称"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12934.html


关键字:

关于《怎样得到主域服务器名称》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td