Laptop oder Desktop Computer ermitteln??

[Piro]

Danke, dass hatte ich auch schon. Wollte aber nicht umwandeln, sondern habe gedacht, dass es auch mit Standardmitteln von Delphi gehen muss.

Habe es jetzt mit dem Akku programmiert. Vielleicht verändere ich den Code später einmal.

Vielen Dank für die ganzen Ideen und Anregungen.

Gruß, Sven

[Chewie]

Und wenn jemand seinen Akku herausnimmt, wird der Rechner als Desktop-PC erkannt. Auch nicht so toll, oder?

[Piro]

ja hast recht aber es reicht erstmal für meine Bedürfnisse.

Danke für den Tip.

[Piro]

Habe mal versucht den VBS Code umzusetzen aber es gelingt mir nicht so wirklich, da ich in diesem Gebiet absoluter Newbie bin.

Mein Code bis jetzt:

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
var
 oCPAppletMgr, objWMIService, colChassis, objChassis : OleVariant;
 strComputer : string;
 i : Integer;
begin
 strComputer := '.';
 oCPAppletMgr  := CreateOleObject('CPApplet.CPAppletMgr');
 objWMIService := GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+ strComputer + '\root\cimv2'); // hier kommt ne Fehlermeldung: Inkompatible Typen: HGDIOBJ und String

 // Rest konnte ich noch nicht testen, da ich erst die Fehler oben beseitigen muss
 colChassis := objWMIService.ExecQuery('Select * from Win32_SystemEnclosure');

 for i:=0 to colChassis.Count do
 begin
   objChassis := colChassis.Item[i];
   ShowMessage(objChassis.ChassisTypes);
 end;
end;
...

Hilfe?

[Alter Mann]

Hi,

man könne ja auch in der DP nach WMI suchen, oder hier mal nach lesen: Windows Management Instrumentation

[Andidreas]

öhm vergebt ihr für eure pc's im geschäft keine bestimmten namen???

also bei uns hat eine workstation das kürzel 'ws' im pc namen.... ein notebook hat 'nb' drinne und ein server ein 'sv' da sich diese immer an der gleichen stelle befinden wäre das bei uns ganz einfach zu erkennen...

aber um auf denn lösungsweg mit dem akku zurück zukommen... hast du dir schon mal die jedis angeschaut??? da gibts eine TJvComputerInfoEx Komponente... in der kann mann auch denn akku prüfen...
vielleicht erkennt man darüber auch einen akku selbst wenn er am netzstrom hängt...

[Piro]

Die Namesgebung ist historisch gewachsen und ist halt für PCs und Laptops gleich.

Bin seit einiger Zeit auf der Suche nach der Umwandlung des VBS Codes aber kein Erfolg. Ich bräuchte eine komplette Codeumwandlung. Ich weiß, dass es eher nicht der Fall ist, dass man das macht.

Meine Lösung ist mit Lukie's Unit. Funktioniert wunderbar. Danke nochmal.

Mal sehen ob wir den VBS Code noch nach Delphi umgewandelt bekommen. Ansonsten vielen Dank für eure Hilfe.

Gruß, Sven

[himitsu]

Das WMI ist bestimmt 'nen guter Vorschlag.

Wenn du mich dann gefunden hast, dann könnte ich dir z.B. dieses vorschlagen: :angel:
> z.B. WMI (Windows Management Instrumentation) + Demo

Delphi-Quellcode:

Uses ..., WMI;

Var WMIResults: TWMIInfo;
  ChassisTypes: Integer;

If WMIGetInfo('.', 'root\CIMV2', '', '',
  'Select ChassisTypes from Win32_SystemEnclosure', WMIResults) Then
  ChassisTypes := StrToInt(WMIRead(WMIResults, 0, 'ChassisTypes'));

[Piro]

Danke, hat wunderbar geklappt. Habe den Artikel irgendwie übersehen.

Schönen Abend noch.