Зачем добавили эту проверку? А низачем, это кривая копипаста из досовского кода когда Windows XP ещё не родилась.
И если посмотреть реальное говно мамонта (0.99.14, йо!), то всё становится ясно:
- Код: Выделить всё
Procedure FileClose (Handle : Longint);
begin
if Handle<=4 then
exit;
CloseHandle(Handle);
end;
и
- Код: Выделить всё
Procedure FileClose (Handle : Longint);
var Regs: registers;
begin
if Handle<=4 then
exit;
Regs.Eax := $3e00;
Regs.Ebx := Handle;
RealIntr($21, Regs);
end;
Похожи, не?
Особенно та пустая строчка доставляет.
Добавлено спустя 17 минут 15 секунд:
Качать https://sourceforge.net/projects/freepa ... M/download
открывать .rpm файлО под виндою можно 7-Zip'ом