Hallo,
ich finde bereits die Sequenz im ntldr, die Funktion ScanFile habe ich hier im Forum gefunden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
thepos: integer;
begin
version := '';
thepos := ScanFile('c:\ntldr',(#205+#22+#15+#133+#9),true);
if thepos = -1 then showmessage('Code gefunden');
end;
KUBA