Computer Name , Workgroup and Domain

[Me_MagMag]

سلام
بازم منم
:oops:
چطور میشه
Computer name , Workgroup و Domain
را در سیستم عاملهای XPو 2000 بدست آورد ؟

[Me_MagMag]

حداقل بگین Computer name را چطور بدست بیارم.
پیرشین الهی

ا.ا.مشیری

[MToloo]

function ComputerName: string;
var
a: array[0..100] of char;
s: Cardinal;
begin
s:= 100;
GetComputerName(@a, s);
Result:= String(a);
end;

[said ali]

با سلام
بگرد تو ریجیستری همشو پیدا میکنی بعد ادرس بده و با یک شی TRegistry اونها رو بدست بیار.

[Me_MagMag]

نه آقا سید در ویندوز XP و 2000 نمیشه نام کامپیوتر را از رجیستری در آورد.
من هنوز تکه برنامه ای که MToloo فرستاده آزمایش نکردم ولی پروسه زیر نام کامپیوتر را در میاره. من روی XP و 2000 آزمایش کردم و جواب میده
<span dir=ltr>


function GetCompName&#58; string;
var
dwLength&#58; dword;
begin
dwLength &#58;= 253;
SetLength&#40;result, dwLength+1&#41;;
if not Windows.GetComputerName&#40;pchar&#40;result&#41;, dwLength&#41; then
raise exception.create&#40;'Computer name not detected'&#41;;
result &#58;= pchar&#40;result&#41;;
end;
</span>

با تشکر
ا.ا.مشیری

[said ali]

با سلام
من خودم یه کامپوننت این کارو دیده بودم که این چیزها رو از روی رجیستری میگرفت و نوشته بود برای 2000 هم هست . شاید هم من اشتباه میکنم ولی مطمئنم که باید توی رجیستری ثبت بشه اگه ثبت نشه پس کجا ثبت میشه؟؟؟؟؟

[Me_MagMag]

من تو Registry مربوط به Windows XP و 2000 چیزی که مربوط به نام کامپیوتر باشه پیدا نکردم.
اگه به این دو تابع ارسالی هم نگاهی بندازی میبینی که از رجیستری چیزی خونده نشده.