Главная страница | назад





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