Bonjour a tous...

J'ai une classe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
TPlaySon = class(TThread)
public
   Path : string;
   procedure execute; override;
end;
Est possible que la vitesse d'execution de la procedure play:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const 
   SOUND = 'C:\son.wav';
 
procedure TPlaySon.Execute;override;
begin
    PlaySound(SOUND,0,SND_FILENAME);
end;
 
 
procedure play;
Begin
     MonThread := TPlaySon.create(false);
end;
Soit plus rapide que celle ci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
const 
   SOUND = 'C:\son.wav';
 
procedure TPlaySon.Execute;override;
begin
    PlaySound(path,0,SND_FILENAME);
end;
 
procedure play;
Begin
    MonThread := TPlaySon.Create(true);
    MonThread.path := SOUND
    MonThread.Execute;
end;
de l'ordre de 93ms pour la 1ere et 435ms pour la seconde!!!