19-09-2012, 04:41 AM
إقتباس :في الوحدة الرئيسية في الحدث formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
soundplayer.Create;
end;
احذف ما فوق
لست بحاجة لتعريف واو انشاء SoundPlayer لانه سبق ذلك، افتح ملف المكون fpsound.pas تجد به
كود :
var
SoundPlayer: TSoundDocument;
...
initialization
SoundPlayer := TSoundDocument.Create;
finalization
SoundPlayer.Free;