1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| procedure TForm1.FormCreate(Sender: TObject);
begin
Mutex := TMutex.Create(nil, false, '');
TThread.CreateAnonymousThread(
procedure
begin
// Verrouillage
Mutex.Acquire;
// Pour être sûr que le 2ème thread
// est démarré et en attente
Sleep(1000);
// Se termine sans libération
end).Start;
TThread.CreateAnonymousThread(
procedure
begin
case Mutex.WaitFor(INFINITE) of
wrSignaled : Codesite.Send('signalé');
wrAbandoned : Codesite.Send('Abandonné');
end;
end).Start;
end; |
Partager