مكتبة الاْكواد

[AX302]

خاصية للحصول على عدد المعالجات في الجهاز

PHP كود :

Function GetNumberOfProcessors:string;
begin
  Result := GetEnvironmentVariable('NUMBER_OF_PROCESSORS');
end; 


طريقة الاستعمال : 

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(GetNumberOfProcessors);
end; 


---

خاصية للحصول على خصائص المعالج 

PHP كود :

Function GetProcessorCharacteristics:string;
begin
  Result := GetEnvironmentVariable('PROCESSOR_IDENTIFIER');
end; 


طريقة الاستعمال :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(GetProcessorCharacteristics);
end; 


---

خاصية للحصول على دقة الشاشة 

PHP كود :

Function GetScreenResolution:string;
begin
  Result := Screen.DesktopWidth.ToString+'x'+Screen.DesktopHeight.ToString;
end; 


طريقة الاستعمال :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(GetScreenResolution);
end;