ENDTHREAD |
Fin du processus |
|---|---|
| Delphi/Kylix/Lazarus | System |
Syntaxe
| Function EndThread(ExitCode:Integer); |
Paramètres
| Nom | Description |
|---|---|
| ExitCode | Ce paramètre permet d'indiquer le code de sortie a envoyer |
Description
Cette fonction permet de mettre fin à un processus.
Exemple
Voici un exemple montrant comment lancer deux processus fils :
- Program EndThreadSamples;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- Type
- ForkData=Record
- Msg:String;
- End;
- ForkDataPtr=^ForkData;
-
- Var
- Thread1, Thread2:Integer;
- Id1,Id2:Integer;
- Fork1,Fork2: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,@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 - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - BeginThread
Langage de programmation - Delphi/Kylix/Lazarus - Référence des variables - IsMultiThread
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - ThreadVar
Dernière mise à jour : Mercredi, le 18 février 2015