Delphi de Boot Sürücüyü Bulmak

 Bu yazımızda bilgisayarımızda bulunan boot sürücüyü  bulacağız.

 

Windows register ında  BootDir  değerine ulaşmamız gerekecek.

 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup:

Uses bölümüne aşağıdaki satırı ekleyelim
uses Registry; 

Formunuza bir Edit text , bir button ekleyin ve click eventına aşağıdaki kodu yazın.

 procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey(
      'Software\Microsoft\Windows\CurrentVersion\Setup', 
      False) then
    try

    Edit1.Text:=ReadString('BootDir');
    except
      MessageDlg('Erişilemedi',mtError,[mbOk],0);
    end
    else
      MessageDlg('Register okumasında hata ',mtError,[mbOk],0);
    CloseKey;
  end;
end;

 

 Yeni bir yazımızda görüşmek üzere.