Récupérer les information de mon PC avec Msinfo32.exe
yvessimon
- Messages postés
- 647
- Date d'inscription
- mardi 22 avril 2003
- Dernière intervention
- 9 janvier 2017
- Messages postés
- 1
- Date d'inscription
- mercredi 26 septembre 2018
- Dernière intervention
- 26 septembre 2018
A voir également:
- Msinfo32 report
- Récupérer le nom de l'ordinateur - Codes sources - Visual Basic / VB.NET (API)
- Dll- récupération d'informations sur les lecteurs, répertoires et fichiers - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Récupération d'information wmi via une fonction vb - Codes sources - Visual Basic / VB.NET (API)
- Récupération d'informations sur les fichiers - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Récupérer des informations d'un lecteur codes barres - Codes sources - Visual Basic / VB.NET (API)
5 réponses
- Messages postés
- 378
- Date d'inscription
- vendredi 20 octobre 2000
- Dernière intervention
- 11 décembre 2013
- Messages postés
- 378
- Date d'inscription
- vendredi 20 octobre 2000
- Dernière intervention
- 11 décembre 2013
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.
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.
- Messages postés
- 1
- Date d'inscription
- mercredi 26 septembre 2018
- Dernière intervention
- 26 septembre 2018
Bien souvent, nous ne comprenions pas comment obtenir des informations sur une tâche particulière. https://unfitpc.com/msinfo32-exe Vous pouvez facilement accéder aux informations sur msinfo32.exe et obtenir des informations supplémentaires.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.