Forum: Multimedia
Delphi
by Duffy,
21. Dez 2004
Hallo Pseudemys Nelsoni,
ich habe es gerade mal ausreichend getestet. Meinen Test habe ich angehangen. Ich kann absolut nichts finden.
bye
Claus
Forum: Multimedia
Delphi
by Duffy,
21. Dez 2004
Hallo Pseudemys Nelsoni,
schaue ich mir heute Abend an, dann melde ich mich wieder.
bye
Claus
Forum: Multimedia
Delphi
by Duffy,
21. Dez 2004
Hallo Pseudemys Nelsoni,
Du mußt den Sound zu Ende spielen lassen, dann kannst Du ihn erst erneut abspielen.
bye
Claus
Forum: Multimedia
Delphi
by Duffy,
21. Dez 2004
Hallo Pseudemys Nelsoni,
procedure PlayWaveSound(ResourceType, ResourceName: PChar);
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle := FindResource(HInstance, ResourceName, ResourceType);
ResHandle := LoadResource(HInstance, FindHandle);
ResPtr := LockResource(ResHandle);
sndPlaySound(PChar(ResPtr), snd_Async OR snd_Memory);
Forum: Multimedia
Delphi
by Duffy,
21. Dez 2004
Hallo Pseudemys Nelsoni
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle := FindResource(HInstance, ResourceName, ResourceType);
ResHandle := LoadResource(HInstance, FindHandle);
ResPtr := LockResource(ResHandle);
sndPlaySound(PChar(ResPtr), snd_Async OR snd_Memory);
UnlockResource(ResHandle);