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: string;

var

  dwLength: dword;

begin

  dwLength := 253;

  SetLength(result, dwLength+1);

  if not Windows.GetComputerName(pchar(result), dwLength) then

    raise exception.create('Computer name not detected');

  result := pchar(result);

end;

</span>

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

[said ali]

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

[Me_MagMag]

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