Vlakno jako funkce

[Libor.Karko]

Dobrý den.Můj první pokus v lazaru.
Toto funkční v delphi.

Kód: [Vybrat]

Function OtevriThread(Param: Pointer): Longint;
begin
  beep;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
 thh: THandle;
 thid: Cardinal;
begin
 thh:=BeginThread(nil,0,@OtevriThread,nil,0,thid);
 if (thh<>0) then CloseHandle(thh);
end;

Přes lazarus se mu nelibí CloseHandle"
unit1.pas(42,19) Error: Identifier not found "CloseHandle"

I když se mi to podaří rozjet pod win, půjde to i pod linuxem?

[Ondřej Pokorný]

Klikni si na BeginThread pomocí Ctrl+levá myš a uvidíš, co všechno máš pro thready k dispozici v FPC. Mimo jiné i CloseThread, ten pod Windows volá právě CloseHandle.

[Libor.Karko]

Zkoušel jsem a je tam 
Proč mi to pak vyhazuje chybu?

[100127]

Zkoušel jsem a je tam 
Proč mi to pak vyhazuje chybu?

Nevim kde je co (ani jakou verzi FPC pouzivas), ale modul threadh.inc aktualne neobsahuje funkci CloseHandle (tady je neoficialni mirror).

[Libor.Karko]

I tam je   function CloseThread (threadHandle : TThreadID) : dword;

[100130]

I tam je   function CloseThread (threadHandle : TThreadID) : dword;

Ano, jen ve Tvem kodu v prvnim prispevku je CloseHandle, ne CloseThread.

[Libor.Karko]

Tak stačilo zaměnít na CloseThread 
Jsem to ale plantala 

[Libor.Karko]

Ve win je to ok, ale v linuxu to místo ukončení vlákna ukončí celou aplikací