Ich benutzte diesen Code zum simplen überprüfen auf UPX (keine gute Variante, aber sie funktionert
)
Delphi-Quellcode:
function IsUPXPacked(const FileName: TFileName): Boolean;
var
l: Longint;
sUPX: string;
f: file;
begin
Result := False;
sUPX := 'UPX';
AssignFile(f, FileName);
Reset(f, 1);
if FileSize(f) >= 600 then
begin
for l := 0 to 600 do
begin
Seek(f, l);
BlockRead(f, sUPX[1], Length(sUPX));
if sUPX = 'UPX' then
begin
Result := True;
Break;
end;
end;
CloseFile(f);
end;
end;
Doch diese Funtkion macht Probleme beim auslesen auf CDs
