akron1 писал(а):
Если будет время и желание, то может быть сделаю раздельную компиляцию с последующей линковкой. Но видимо нескоро.
Ну ничего страшного, торопиться и не надо
Если будет что — с удовольствием потестирую.
akron1 писал(а):
предложить свой вариант синтаксиса импорта, более удобный для подсветки
Казалось бы, банальное добавление
END; решает проблему
Код:
PROCEDURE [winapi, "kernel32.dll", "GetTickCount"]
_GetTickCount* (): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "GetStdHandle"]
GetStdHandle (nStdHandle: INTEGER): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "GetCommandLineA"]
GetCommandLine (): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "ReadFile"]
ReadFile (hFile, Buffer, nNumberOfBytesToRW: INTEGER; VAR NumberOfBytesRW: INTEGER; lpOverlapped: POverlapped): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "WriteFile"]
WriteFile (hFile, Buffer, nNumberOfBytesToRW: INTEGER; VAR NumberOfBytesRW: INTEGER; lpOverlapped: POverlapped): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "CloseHandle"]
CloseHandle (hObject: INTEGER): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "CreateFileA"]
CreateFile (
lpFileName, dwDesiredAccess, dwShareMode: INTEGER;
lpSecurityAttributes: PSecurityAttributes;
dwCreationDisposition, dwFlagsAndAttributes,
hTemplateFile: INTEGER): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "OpenFile"]
OpenFile (lpFileName: INTEGER; lpReOpenBuff: OFSTRUCT; uStyle: INTEGER): INTEGER; END;
PROCEDURE [winapi, "kernel32.dll", "ExitProcess"]
ExitProcess* (code: INTEGER); END;
PROCEDURE [winapi, "shell32.dll", "ShellExecuteA"]
ShellExecute* (hWnd, Operation, FileName, Parameters, Directory, ShowCmd: INTEGER): INTEGER; END;
Не знаю, уж насколько логично это выглядит.
akron1 писал(а):
Кроссплатформенные примеры скоро будут.
Будет ли возможность собрать те примеры(
Projects.7z )
viewtopic.php?f=33&t=2443&start=45#p70389 ?