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
- La procédure EndThread termine le processus léger en cours. Si ExitCode est fourni, il est renvoyé en tant que code de sortie du processus léger à une fonction attendant la fin du processus léger (WaitForThreadTerminate). S'il est omis, zéro est utilisé.
- Cette fonction ne revient pas.
Exemple
Voici un exemple montrant comment lancer deux processus fils :
- Program EndThreadSamples;
-
- Type
- ForkData=Record
- Msg:String;
- End;
- ForkDataPtr=^ForkData;
-
- Var
- Thread1:Integer;
- Id1:TThreadID;
- Fork1:ForkData;
- I:Byte;
-
- Function MyFork(Parameter:Pointer):Integer;
- Var
- ForkData:ForkDataPtr Absolute Parameter;
- Begin
- MyFork := 0;
- Inc(I);
- WriteLn(ForkData^.Msg);
- EndThread(0);
- End;
-
- BEGIN
- I:=0;
- Fork1.Msg := 'Le programme fils 1!';
- Thread1 := BeginThread(NIL,0,TThreadFunc(@MyFork),@Fork1,0,Id1);
- Repeat Until I >= 1;
- 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