Откуда инсталлировалась Windows

Следующая статья: Рисование без мерцания.

Как узнать, откуда инсталлировалась Windows?

Решение

 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;

Примечание: Добавьте в uses модуль Registry.