i would like 2 know if any of you guys have any tpu to play music and/or movies in pascal 7(crt/dos) or 1.5(wincrt) and i would like a list of the commands to initate them in a program. thx :)







I'm A Christian
THE MIGHTY MAGAMAN

: i would like 2 know if any of you guys have any tpu to play music and/or movies in pascal 7(crt/dos) or 1.5(wincrt) and i would like a list of the commands to initate them in a program. thx :)
:
:
for TPW, use mmsystem, which comes with it, just browse the folders
as for code:

uses mmsystem;
procedure SendMCICommand(Cmd: PChar);
	begin mciSendString(Cmd, nil, 0, 0); end;

begin
	SendMCICommand('MCIDEVICEID wDeviceID,MCI_WINDOW,DWORD dwFlags,(DWORD) (LPMCI_GENERIC_PARMS) lpWindow');
	SendMCICommand('open overlay shareable');
	SendMCICommand('play "somefilename"');
	SendMCICommand('close overlay');
end.

: : i would like 2 know if any of you guys have any tpu to play music and/or movies in pascal 7(crt/dos) or 1.5(wincrt) and i would like a list of the commands to initate them in a program. thx :)
: :
: :
: for TPW, use mmsystem, which comes with it, just browse the folders
: as for code:
:

: uses mmsystem;
: procedure SendMCICommand(Cmd: PChar);
: 	begin mciSendString(Cmd, nil, 0, 0); end;
: 
: begin
: 	SendMCICommand('MCIDEVICEID wDeviceID,MCI_WINDOW,DWORD dwFlags,(DWORD) (LPMCI_GENERIC_PARMS) lpWindow');
: 	SendMCICommand('open overlay shareable');
: 	SendMCICommand('play "somefilename"');
: 	SendMCICommand('close overlay');
: end.
: 

:
i dont have the mmsystem.tpu file.Do u know where i can get a copy?
thx




I'm A Christian
THE MIGHTY MAGAMAN

: : : i would like 2 know if any of you guys have any tpu to play music and/or movies in pascal 7(crt/dos) or 1.5(wincrt) and i would like a list of the commands to initate them in a program. thx :)
: : :
: : :
: : for TPW, use mmsystem, which comes with it, just browse the folders
: : as for code:
: :

: : uses mmsystem;
: : procedure SendMCICommand(Cmd: PChar);
: : 	begin mciSendString(Cmd, nil, 0, 0); end;
: : 
: : begin
: : 	SendMCICommand('MCIDEVICEID wDeviceID,MCI_WINDOW,DWORD dwFlags,(DWORD) (LPMCI_GENERIC_PARMS) lpWindow');
: : 	SendMCICommand('open overlay shareable');
: : 	SendMCICommand('play "somefilename"');
: : 	SendMCICommand('close overlay');
: : end.
: : 

: :
: i dont have the mmsystem.tpu file.Do u know where i can get a copy?
: thx
:
:
:
:
: I'm A Christian
: THE MIGHTY MAGAMAN
:
:
For TPW you need to search .tpw files not .tpu files. Due to small stack, I would suggest at TP70 cases to search( and use ) FLIC and MOD players.

****************
Any questions? Just ask!

GAASHIUS

: :
: i dont have the mmsystem.tpu file.Do u know where i can get a copy?
: thx
:

check the win31 pascal subfolder, mmsystem.pas should be there (was for me), just compile it normally, and put the tpu in the folder with the programs that will use it. if you still can't find it, post your email and i'll send you a copy

:
: : :
: : i dont have the mmsystem.tpu file.Do u know where i can get a copy?
: : thx
: :
:
: check the win31 pascal subfolder, mmsystem.pas should be there (was for me), just compile it normally, and put the tpu in the folder with the programs that will use it. if you still can't find it, post your email and i'll send you a copy
:
my email is magaman442000@yahoo.com or isac8_crown@hotmail.com
thx




I'm A Christian
THE MIGHTY MAGAMAN