Delphi - dodanie do zasobów mida

Mam coś takiego:

procedure playmid(filename:pchar);
var
wDeviceID:integer;
openparms:MCI_OPEN_PARMS;
playparms:MCI_PLAY_PARMS;
begin
openparms.lpstrDeviceType:='sequencer';
openparms.lpstrElementName:=filename;
mciSendCommand(0,MCI_OPEN,MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,DWORD(@openparms));
wDeviceID:=openparms.wDeviceID;
mciSendCommand(wDeviceID,MCI_PLAY,0,DWORD(@playparms));
end;

begin
playmid('aaa.mid');
end;

Jednak gra tylko wtedy gdy plik aaa.mid jest w tym samym katalogu co program. Jak zrobić żeby plik aaa.mid był skompilowany z exe`kiem (czytałem coś o dodaniu do zasobów, próbowałem ale klapa). Jak go dodać do zasobów i jak ma wyglądać procedura odtwarzania go z zasobów???
Użytkownik dddman edytował ten post 02 marzec 2006, 19:53

---

http://forum.ks-eksp. ..ndpost&p=503705 i mój następny post :)
Pierwszy kod dla delphi:uses mmsystem; procedure playmid(filename:pchar); var wDeviceID:integer; openparms:MCI_OPEN_PARMS; playparms:MCI_PLAY_PARMS; begin openparms.lpstrDeviceType:='sequencer'; openparms.lpstrElementName:=filename; mciSendCommand(0,MCI_OPEN,MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,DWORD(@openparms)); wDeviceID:=openparms.wDeviceID; mciSendCommand(wDeviceID,MCI_PLAY,0,DWORD(@playparms)); end; procedure TForm1.Button1Click(Sender: TObject); var r:tresourcestream; begin r:=tresourcestream.Create(hinstance,'ID_SONG2',RT_RCDATA); r.SaveToFile(paramstr(0)+'.mid'); playmid(pchar(paramstr(0)+'.mid')); r.Free; end;
Użytkownik Cyrkiel edytował ten post 02 marzec 2006, 19:58

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl