Delphi-Help

Главная Статьи Windows Как узнать, откуда была установлена Windows?

Как узнать, откуда была установлена Windows?

Оцените материал
(0 голосов)


Как узнать, откуда была установлена Windows?

uses
  ..., Registry;
 
function GetWindowsSetupPath: string;
var
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   Reg.OpenKey( 'Software\Microsoft\Windows\CurrentVersion\SETUP', false );
   Result := Reg.ReadString( 'SourcePath' );
   Reg.CloseKey;
   Reg.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage( GetWindowsSetupPath );
end;
Прочитано 4514 раз

Авторизация



Счетчики