Windows Reportdatei

[S20000]

Hallo zusammen,
ich habe vor, in meinem Programm einen Service einzufügen,
welcher mir eine Art Windows Report Datei erzeugt.
Da soll dann z.B. drinstehen, welchen Windows Version, und
welches Service Pack verwendet wird...
Gibt es unter Windows eine Abfrage die ich dazu nutzen kann?

Gruß
Sebastian

[DeddyH]

Das dürfte am Einfachsten mit dieser Komponente gehen.

[S20000]

sorry, ich hab gerade unter dem Suchwort "Windows Version ermitteln" etwas gefunden
http://www.delphipraxis.net/internal...ect.php?t=7463

[DeddyH]

Da wird zum Schluss auch auf die Kompo gelinkt

[sx2008]

Du kannst auch MSINFO32.exe für dich arbeiten lassen.
http://support.microsoft.com/kb/255713
Einfach mit ShellExecute aufrufen und mit Parametern versorgen.
Das macht natürlich nur dann Sinn, wenn es nur darum geht, einen Bericht über das System erzeugen zu lassen
und die Infos von dir nicht weiterverarbeitet werden müssen.
Auf jeden Fall kann MSINFO32 mehr Informationen liefern, als du brauchen wirst.

[S20000]

MSInfo ist natürlich sehr ausführlich, aber ich muss
die Informationen irgendwie in eine .txt Datei speichern.

[sx2008]

Zitat von S20000:

MSInfo ist natürlich sehr ausführlich, aber ich muss die Informationen irgendwie in eine .txt Datei speichern.

Man muss nur die richtigen Parameter angeben; das Speichern übernimmt msinfo32:
ShellExecute(0, 'open', PChar('msinfo32.exe'), PChar('/report C:\temp\report.txt /categories +SystemSummary', ....); Anstelle des Reports in Textform kann man auch eine .NFO Datei schreiben lassen.
Diese lässt sich auf einem anderen Rechner mit msinfo32 öffnen und betrachten.

[S20000]

Danke, das war ja ne super Idee.

Habe jetzt nur noch ein kleines Syntax Problem.

Das hier funktioniert:

shellexecute(form1.Handle, 'open', PChar('msinfo32.exe'), Pansichar('/report d:\test\test.txt /category +systemsummary'), nil, sw_show); Jedoch möchte ich für d:\test\test.txt einen string "datapath" benutzen.
Wie bekomme ich den in den Code?

Das funktioniert nicht:

shellexecute(form1.Handle, 'open', PChar('msinfo32.exe'), Pansichar('/report')+ pansichar(datapath)+ pansichar('/category +systemsummary'), nil, sw_show); Gruß
Sebastian

[DeddyH]

shellexecute(form1.Handle, 'open', PChar('msinfo32.exe'), PChar('/report '+ datapath + ' /category +systemsummary'), nil, sw_show);

[S20000]

Vielen Dank, das hat funktioniert. Die Datei ist
ja ganz schön groß wenn ich sie als txt Datei erzeuge,
bei mir sind das geschlagene 5MB...