MBR auslesen

[turboPASCAL]

Ist relativ einfach.

Delphi-Quellcode:

  fHandle := CreateFile(
    PChar('.PHYSICALDRIVE0'), // ...PHYSICALDRIVE0 <--<< first Harddisk ( Primary Master )
    GENERIC_READ,             // ...read only
    FILE_SHARE_WRITE,         // ...Wichtig, nicht das es Probleme gibt
    nil,
    OPEN_EXISTING,            // ...ist klar warum
    0,
    0);

  if fHandle = INVALID_HANDLE_VALUE then
  begin
    ShowMessage('CreateFile - Error: Invalid Handle');
    exit;
  end;

  Success := ReadFile(fHandle,
    Buffer,
    512,                      // ....read the first 512 Byte (MBR)
    nBytesRead,
    nil);

  CloseHandle(fHandle);       // ...Schnell wieder dem MBR zu-machen ;-)

  // --- nun sollte man den MBR im Array "Buffer" haben ---

Fertig.

Anmerkung:

• Ungetested!
• Unter Vista braucht man Anminrechte bzw das Programm benötigt diese.
• Anwendung auf eigene Gefahr.