AsyncCall в Delphi 2007

В основном я хочу запустить AsyncCall и продолжить загрузку кода. У меня есть секция Interface, которая потребляет много времени (600+ms), и я хочу загрузить этот код в независимом потоке.

Я пытался использовать AsyncCall, чтобы сделать что-то вроде этого:

procedure Load;
begin
...
end;

initialization
  AsyncCall(@Load, []); // or LocalAsyncCall(@Load)

Однако эта процедура Load фактически запускается в основном потоке, а не в новом созданном потоке. Как я могу заставить процедуру Load загружаться в любом потоке, кроме MainThread?

Я могу создать TThread и Execute, но я хочу заставить AsyncCall или LocalAsyncCall или что-нибудь из библиотеки AsyncCall работать.

Спасибо за помощь.

11
задан menjaraz 11 January 2012 в 04:00
поделиться