per Software Prüfen ob Rechner ein Notebook/Desktop ist?

[hathor]

Guckst Du hier:

http://www.delphi-forum.de/viewtopic...ebook&start=20

http://www.delphi-forum.de/download.php?id=6482

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var tmpstr : string;
begin
  tmpstr := getWMIstring('','Win32_SystemEnclosure','ChassisTypes');
  if tmpstr <> '' then
  begin
  Label1.caption:= tmpstr;
  Label2.Caption:= 'This is a unknown PC';
  case StrToInt(tmpstr) of
  1 : Label2.Caption:= 'Other';
  2 : Label2.Caption:= 'This is an unknown PC';
  3 : Label2.Caption:= 'This is a Desktop-PC';
  4 : Label2.Caption:= 'This is a Low Profile Desktop-PC';
  5 : Label2.Caption:= 'This is a Pizza Box-PC';
  6 : Label2.Caption:= 'This is a Mini Tower-PC';
  7 : Label2.Caption:= 'This is a Tower-PC';
  8 : Label2.Caption:= 'This is a portable PC';
  9 : Label2.Caption:= 'This is a LAPTOP';
  10 : Label2.Caption:= 'This is a NOTEBOOK';
  11 : Label2.Caption:= 'This is a Handheld-PC';
  12 : Label2.Caption:= 'This is a Docking Station';
  13 : Label2.Caption:= 'This is a All-in-One-PC';
  14 : Label2.Caption:= 'This is a Sub-Notebook';
  15 : Label2.Caption:= 'This is a Space-Saving-PC';
  16 : Label2.Caption:= 'This is a Lunch Box-PC';
  17 : Label2.Caption:= 'This is a Main System Chassis';
  18 : Label2.Caption:= 'This is a Expansion Chassis';
  19 : Label2.Caption:= 'This is a Sub-Chassis';
  20 : Label2.Caption:= 'This is a Bus Expansion Chassis';
  21 : Label2.Caption:= 'This is a Peripheral Chassis';
  22 : Label2.Caption:= 'This is a Storage Chassis';
  23 : Label2.Caption:= 'This is a Rack Mount Chassis';
  24 : Label2.Caption:= 'This is a Sealed-Case PC';
  25 : Label2.Caption:= 'This is a Expansion Chassis';
  else Label2.Caption:= 'This is a unknown PC';
 end;
end;
end;