Article #17134: Getting the path to the directory where Windows was installed from

 Question and Answer Database
FAQ2134D.txt Getting the path to the directory where Windows was installed from
Category :VCL
Platform :All
Product :All 32 bit
Question:
I need to install some files from the Windows Setup disk
in code. On many computers, the Windows setup files reside
in CAB files that are installed on the user's hard drive and
in other cases, the system is installed from a CD. Where can I
find where Windows was originally installed from?
Answer:
The following example demonstrates retrieving the source of the
Windows setup files.
Example:
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\SETUP',
false);
ShowMessage(reg.ReadString('SourcePath'));
reg.CloseKey;
reg.free;
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99