Section courante

A propos

Section administrative du site

ENDTHREAD

Fin du processus léger
Free Pascal System

Syntaxe

Procedure EndThread(ExitCode:DWord);

Paramètres

Nom Description
ExitCode Ce paramètre permet d'indiquer le code de sortie a envoyer

Description

Cette procédure permet de terminer le processus courant.

Remarques

Exemple

Voici un exemple montrant comment lancer deux processus fils :

  1. Program EndThreadSamples;
  2.  
  3. Type
  4.  ForkData=Record
  5.   Msg:String;
  6.  End;
  7.  ForkDataPtr=^ForkData;
  8.  
  9. Var
  10.  Thread1:Integer;
  11.  Id1:TThreadID;
  12.  Fork1:ForkData;
  13.  I:Byte;
  14.  
  15. Function MyFork(Parameter:Pointer):Integer;
  16. Var
  17.  ForkData:ForkDataPtr Absolute Parameter;
  18. Begin
  19.  MyFork := 0;
  20.  Inc(I);
  21.  WriteLn(ForkData^.Msg);
  22.  EndThread(0);
  23. End;
  24.  
  25. BEGIN
  26.  I:=0;
  27.  Fork1.Msg := 'Le programme fils 1!';
  28.  Thread1 := BeginThread(NIL,0,TThreadFunc(@MyFork),@Fork1,0,Id1);
  29.  Repeat Until I >= 1;
  30. END.

on obtiendra le résultat semblable suivant :

Le programme fils 1!

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - «WaitForThreadTerminate»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «BeginThread»

Dernière mise à jour : Samedi, le 18 juillet 2015