BeginThread

[vsrmis]

создат такую функцию

function ThreadProc(param : Pointer) : LongInt;register;

begin


в варе обьявил переменную
eventThread : THandle = 0;
На Creatу делаю так

var
id:QWord;
begin
eventThread := BeginThread(nil, 0, @ThreadProc, nil, 0, id);
end;

компилятор ругается на несовместимость типов

Типа я ему сообщил адрес функуии а он ожидал procedure varieble type of function

[vsrmis]

Изменил LongInt на Int64. Скомпилилось но выкидывает при
eventThread := BeginThread(nil, 0, @ThreadProc, nil, 0, id);

Незнаю, что-то как не бьюсь ни один способ потоков не работает ещё ни 1 поток запуститьне удалось, может это система или проц виноваты? Не думаю Система - Linux Mint 10, проц - i5 2400. Вроде 4 ядерный потоки должны пахать.

[mss]

function ThreadProc(param : Pointer) : LongInt;register;

Какой еще нфих "register" ? Что за отсебячина ?
Удосужься уже проштудировать внимательно документацию, прежде чем "шкодить"

[veniside]

не стоит привязываться к разрядности target, вот код, который прекрасно компилится (да ещё и работает) и 32 и 64 разрядным FPC:

// --  --
function fpc_thread(parameter: pointer): ptrint;
begin
  // thread code
end;

///

handle := BeginThread(@fpc_thread, param);