récupérer les information de mon PC avec Msinfo32.exe

Question

Msinfo32.exe permet d'avoir des informations sur le PC.

Avec shellExecute il est possible d'ex&#233;cuter Msinfo32.exe, ce qui ouvre une f&#233;n&#234;tre.

Est-il possible de r&#233;cup&#233;rer les informations de cette f&#233;n&#234;tre ouverte par Msinfo32.exe avec DELPHI7 ?

yvessimon

cs_ManChesTer · Answer

Oui, tu lance Msinfo32 /report c:\MesInfo.txt

Le fichier C:\mes infos.txt contiend les infos....

Bon Coding ....

ManChesTer.

yvessimon · Answer

Avec windows 2000 je n'obtiens pas le fichier texte !

de plus il faut s&#233;lectionner  la configuration puis exporter la f&#233;n&#234;tre.



Comment passer ces param&#232;tres avec Shellexecute ?



Merci

yvessimon

cs_ManChesTer · Answer

Voici un code qui ne me pose aucun problemes (adapter le path dans certans cas.....)

Function RunAndWait(Fname:String;TimeOut:Longint):Boolean; // Execute a file and wait until the end
var  SInfo : TStartupInfo;
     PInfo : TProcessInformation;
begin
 Result:=False;
 FillChar(SInfo,SizeOf(SInfo),0);
 SInfo.cb:=SizeOf(TStartupInfo);
 SInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
 SInfo.wShowWindow:=SW_SHOW;
 if CreateProcess(nil,Pchar(Fname),nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,SInfo,PInfo) then
  if not WaitForSingleObject(PInfo.hProcess,TimeOut)=WAIT_FAILED then
   Result:=True;
end;


procedure TForm1.Button1Click(Sender: TObject);
var Windir : Array[0..Max_Path] of Char;
    DirOf  : String;
    j : integer;
begin
GetWindowsDirectory(Windir,Max_PAth);
DirOf:=String(Windir)+'\System32\DllCache\Msinfo32.Exe /report c:\MesInfo.txt';
RunAndWait(DirOf,-1); // lancer MsInfo32 et attendre qu'il se ferme
j:=0;
repeat
 Sleep(10); // attendre que le fichier soit dispo....
 inc(j);
until (fileexists('c:\MesInfo.txt')) or (j>100);
if j<=100 then
 Memo1.Lines.LoadFromFile('c:\MesInfo.TXT')
else
 Showmessage('Fichier info introuvable....');
end;

Bon Coding ....

ManChesTer.

yvessimon · Answer

Effectivement c'est mieux.



Par contre le fichier texte g&#233;n&#233;r&#233; ne peut &#234;tre lu tel quel., seulement 4 caract&#232;res s'affichent.



Je dois faire un copier coller puis sauvegarde avec un notepad pour avoir un fichier correct. 

yvessimon

Récupérer les information de mon PC avec Msinfo32.exe

4 réponses

Votre réponse

Discussions similaires