Mega Code Archive
How to execute msinfo32
<![CDATA[
Question:
I want to run the program MSINFO32.EXE. How can I do this so it works on any machine?
Answer:
You can find the path and name of MSINFO in the registry at \Microsoft\Shared Tools\MSInfo as shown in the code below.
program MSInfo32_Location;
function Get_MSInfo : String;
var
Regist: TRegistry;
begin
Regist := TRegistry.Create;
Regist.RootKey := HKEY_LOCAL_MACHINE;
if Regist.OpenKeyReadOnly('Software\Microsoft\Shared Tools\MSInfo') then
begin
Result := Regist.ReadString('Path')
end
else
begin
Result := ''
end;
Regist.CloseKey;
Regist.Free;
end;
begin
end.
]]>