FPFORK |
«Fork» de Free Pascal |
---|---|
Free Pascal | BaseUnix |
Syntaxe
Function FpFork:TPid; |
Description
Cette fonction permet de créer un processus enfant.
Remarque
- L'unité BaseUnix a été intégré par Marco Van de Voort. Il contient les fonctionnalités de base du système d'exploitation Unix. Il remplace l'unité Linux de la version 1.0.X du compilateur, mais intègre uniquement un sous-ensemble nettoyé et portable de cette unité. De plus, puisqu'il est destiné au système d'exploitation Unix à l'origine, il n'est pas supporté ou disponible pour tous les systèmes d'exploitation.
Exemples
Voici un exemple montrant comment lancer un processus fils :
on obtiendra le résultat suivant :
Le programme parent!Le programme fils!
Fin!
Voici un exemple montrant comment lancer deux processus fils :
- Program FpForkSamples2;
-
- Uses BaseUnix;
-
- Var
- MainPID:TPid;
- SL:cint;
-
- BEGIN
- If FpFork <> 0 Then Begin
- MainPID := FpFork;
- If(MainPID <> 0)Then Begin
- WriteLn('Le programme parent!');
- End
- else
- Begin
- WriteLn('Le programme fils 2!');
- Exit;
- End;
- End
- else
- Begin
- WriteLn('Le programme fils 1!');
- Exit;
- End;
- FpWaitPID(MainPID,SL,0);
- WriteLn('Fin!');
- END.
on obtiendra le résultat suivant :
Le programme parent!Le programme fils 1!
Le programme fils 2!
Fin!
Voir également
Dernière mise à jour : Samedi, le 18 juillet 2015