0CodErr wrote:
tsdima wrote:
0CodErr wrote:
Интересно, кто-нибудь пробовал из-под Wine запускать?
Я пробовал, всё тот же "Read File error".Нашёл в модуле System такой код с комментариями:
Code:
{$IFDEF LINUX}
................................................................................
{ The Win32 program loader sets up the first 64k of process address space
with no read or write access, to help detect use of invalid pointers
(whose integer value is 0..64k). Linux doesn't do this.
Parts of the Delphi RTL and IDE design environment
rely on the notion that pointer values in the [0..64k] range are
invalid pointers. To accomodate this in Linux, we reserve the range
at startup. If the range is already allocated, we keep going anyway. }
var
ZeroPageReserved: Boolean = False;
procedure ReserveZeroPage;
const
PROT_NONE = 0;
MAP_PRIVATE = $02;
MAP_FIXED = $10;
MAP_ANONYMOUS = $20;
var
P: Pointer;
begin
if IsLibrary then Exit; // page reserve is app's job, not .so's
if not ZeroPageReserved then
begin
P := mmap(nil, High(Word), PROT_NONE,
MAP_ANONYMOUS or MAP_PRIVATE or MAP_FIXED, 0, 0);
ZeroPageReserved := P = nil;
if (Integer(P) <> -1) and (P <> nil) then // we didn't get it
munmap(P, High(Word));
end;
end;
procedure ReleaseZeroPage;
begin
if ZeroPageReserved then
begin
munmap(nil, High(Word) - 4096);
ZeroPageReserved := False;
end;
end;
{$ENDIF}Так как у linux исходный код открыт, то, думаю, при желании можно для себя любимого снова включить эту возможность.Kopa wrote:
Попробовал собрать последнюю ревизию у себя программы
Ошибся темой , да? 
) должен на x64 тоже запуститься.