با سلام . آيا مي شه توسط دلفي مدل و مشخصات قطعات رو به دست آورد . مثلا يك دكمه بزاريم و با كليك بر روي اين دكمه مشخصات سي پي يو - رم - كارت گرافيك - كارت صدا و ... نمايش داده بشه ؟
Printable View
با سلام . آيا مي شه توسط دلفي مدل و مشخصات قطعات رو به دست آورد . مثلا يك دكمه بزاريم و با كليك بر روي اين دكمه مشخصات سي پي يو - رم - كارت گرافيك - كارت صدا و ... نمايش داده بشه ؟
قبلا مطرح شده و برای هر کدام هم نمونه کدهایی معرفی شده است جستجو کنید
من کدها شام خوران فلاسفه با توضیحات کامل می خواهم که با زبان دلفی نوشته شده باشد که به نوعی thread در دلفی است می تونه برای من بفرسته .
?????????????????????????????????????????????????? ???:13:نقل قول:
ميشه ارتباطش با سوال بنده حقير رو بگين؟
با تشكر از شما . اما من هرچي گشتم چيزي پيدا نكردم ميشه بيشتر راهنمايي كنيد ممنون مي شم .نقل قول:
درباره WMI - Windows Management Instrumentتحقیق کنید.
تشخیص شماره سریال درایو
نمایش اطلاعاتی از Bios سیستمکد:procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum: DWord;
A,B: DWord;
C: array [0..255] of Char;
Buffer: array [0..255] of Char;
begin
if GetVolumeInformation(
PChar('C:\'),
Buffer,
256,
@SerialNum,
A,
B,
C,
256) then Label1.Caption:=IntToStr(SerialNum);
end;
اگر چیز جدیدی پیدا کردم می زارم اینجا فعلا .کد:function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
if (p^ = #0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + #13#10;
end;
q := nil;
end;
end else
if p^ in [#33..#126, #169, #184] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Text := GetBiosInfoAsText;
end;
همچین کدی در ویندوزهای بر پایه NT عمل نخواهد کرد، چون در اینگونه ویندوزها شما در سطح User Mode دسترسی مستقیم به RAM نخواهید داشت.نقل قول:
نمایش اطلاعاتی از Bios سیستم
سلام دوست عزیز
چیزی رو که میخوای میتونی از اینجا دانلود کنی:31:
کد:http://www.talar.asanlearn.com/showthread.php?tid=870