Hallo DP Gemeinde,vielleicht kann mir jemand von euch einen Tip geben zu der og Frage?
Wäre Cool wenn das jemand wüsste denn die Software führt ein PC Replacement durch und VPN brauchen die auf dem normalen Business Rechner nicht

Gruß Dirk

Benutz einfach mal die Forensuche. Da gab's mal einen längeren Thread zu. Eine perfekte Lösung glaube es nicht, so weit ich mich erinner, meist wurde nach einer Batterie gesucht.

Guckst Du hier:

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

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

zusammenfalten · markieren

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;

Hmm, eine 100%tige Erkennung gibt es nicht. Denn was macht ein Notebook aus? Das Format? der Akku?
Das optische Format kann man schlecht prüfen da das Betriebssystem in der Regel keine Infos zur Abmessung des Gehäuses kennt.

Und ich kann ein Notebook auf ohne Akku betreiben und mitlerweule gibt es auch Desktopcomputer, die Notebook-Komponeten einsetzen, um Leiser zu sein, weniger Hitze abzugeben und weniger Energie zu verbrauchen

Auf Firmen-Notebooks wird häufig ein VPN-Client installiert. Daran kann man dann ziemlich sicher herausfinden, obs ein Laptop oder Desktop ist, da die Anzahl der eingesetzen Clients überschaubar und somit klar ist, wonach zu suchen ist.
Bei Laptops, die keinen derartigen Richtlinien unterliegen dürfte es nur sehr wage zu erraten sein, worum es sich handelt.