was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

35 Visitors Online


 
...Systeminformationen auslesen?
Autor: Michael Wiren
[ Tip ausdrucken ]  

Tip Bewertung (14):  
     




{
  The SYSTEM_INFO structure contains information about the current computer
  system. This includes the architecture and type of the processor, the number of
  processors in the system, the page size, and other such information.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  
SysInfo: TSystemInfo;
begin
  
GetSystemInfo(SysInfo);
  with ListBox1.Items, SysInfo do
  begin
    
Add('ProcessorArchitecture:' + IntToStr(wProcessorArchitecture));
    Add(FloatToStr(dwPageSize) + ' Kb page size');
    Add(Format('Lowest memory address accessible to applications and DLL - %p',
      [lpMinimumApplicationAddress]));
    Add(Format('Highest memory address accessible to applications and DLL - %p',
      [lpMaximumApplicationAddress]));
    Add('OEMID:' + IntToStr(dwOemId));
    Add('ActiveProcessorMask:' + IntToStr(dwActiveProcessorMask));
    Add(IntToStr(dwNumberOfProcessors) + ' - number of processors');
    Add('ProcessorType:' + IntToStr(dwProcessorType));
    case wProcessorLevel of
      
3: Add('Intel 80386 processor level');
      4: Add('Intel 80486 processor level');
      5: Add('Intel Pentium processor level');
    end;
    Add(FloatToStr(dwAllocationGranularity / 1024) +
      ' Kb - granularity with which virtual memory is allocated');
    Add('ProcessorRevision:' + IntToStr(wProcessorRevision));
  end;
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners