computer id چجوری می تونم در دلفی بدست بیارم

[soren64]

من می خوام id computer رو بدست بیارم . این ادی منحصر به فرد هست. خیلی ممنون میشم اگه به من کمک کنین :متفکر::متفکر::متفکر:

[Felony]

Computer ID کجا بود ؟ کجای سیستم هست ؟

[Mahmood_M]

برخی مواقع به Computer Name هم Computer ID گفته میشه ، اگه منظورتون همون Name هست میتونید به صورت زیر بدست بیارید :
function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;
اگر منظورتون چیز دیگه ای هست ، توضیح بیشتری بدید ، موفق باشید ...

[Felony]

برخی مواقع به Computer Name هم Computer ID گفته میشه ، اگه منظورتون همون Name هست میتونید به صورت زیر بدست بیارید :
function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;
اگر منظورتون چیز دیگه ای هست ، توضیح بیشتری بدید ، موفق باشید ...

بهتره از Typecasting به جای تابع StrPas استفاده بشه ، این تابع فقط برای سازگاری با نسخه های قبلی در نسخه های جدید دلفی قرار داده شده :


function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := String(buffer);
end;

[soren64]

مجتبی جان و محمد جان خیلی ممنون که مشکل منو حل کردین . ولی یه سوالی دارم آیا computer name که گفتین منحصر به فرد هست یا نه .................؟ باز هم تشکر می کنم از شما دوستان گرامی

[tdkhakpur]

ولی یه سوالی دارم آیا computer name که گفتین منحصر به فرد هست یا نه .................؟
نه.
با متد زیر قابل تغییره


SetComputerName

ولی اگر منظورتان ایجاد نرم افزار وابسته به کامپیوتر هست کلمه قفل نرم افزاری را جستجو کنید.

[soren64]

من اگه بخوام computer name رو تو lable نمایش بدم باید چیکار کنم ممنون از کمک هاتون

[tdkhakpur]

من اگه بخوام computer name رو تو lable نمایش بدم باید چیکار کنم


var
buffer : array[1..MAX_COMPUTERNAME_LENGTH] of char;
begin
Windows.GetComputerName(@buffer, MAX_COMPUTERNAME_LENGTH)
Label1.Caption := String(buffer);
end;

[soren64]

اگه من بخوام cpu id رو بدت بیارم.............چیکار باید کنم ........؟ با تشکر از همه دوستان.....

[tdkhakpur]

اگه من بخوام cpu id رو بدت بیارم.............چیکار باید کنم ........؟

جمله "سریال فیزیکی" را جستجو کنید به نظرم cpu ای دی هم درش هست