Мне нужно чтобы в программе на фоновом плане играла музыка ...
PlaySound('E:\Escaping the Atmosphere.wav',0,SND_FILENAME);- если вставляешь этим методом, то играет музыка до конца, потом запускается приложение ... не приемлимо.
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle := FindResource(HInstance, 'Name of your resource', 'WAVE');
if FindHandle <> 0 then
begin
ResHandle := LoadResource(HInstance, FindHandle);
if ResHandle <> 0 then
begin
ResPtr := LockResource(ResHandle);
if ResPtr <> nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;
тогда:
[Fatal Error] Unable to build. License is invalid or has expired.