|
procedure getfromunicode(VAR s:string;unicode_s:LPWSTR);zvZLinux联盟
VAR tempchar:array[0..255] of char;zvZLinux联盟
beginzvZLinux联盟
WideCharToMultiByte(CP_ACP,0,unicode_s,-1,tempchar,256,nil,nil);zvZLinux联盟
s:=Strpas(tempchar);zvZLinux联盟
end;zvZLinux联盟
zvZLinux联盟
zvZLinux联盟
function PDCName : string;zvZLinux联盟
VAR out_s:LPWSTR;zvZLinux联盟
s:string;zvZLinux联盟
beginzvZLinux联盟
out_s:=LPWSTR(stralloc(255));zvZLinux联盟
Result:='';zvZLinux联盟
if NetGetDCName(nil,nil,LPBYTE(out_s))=NERR_Success thenzvZLinux联盟
beginzvZLinux联盟
getfromunicode(s,out_s);zvZLinux联盟
Result:=s;zvZLinux联盟
end;zvZLinux联盟
NetApiBufferFree(LPBYTE(out_s));zvZLinux联盟
end;zvZLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
