Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

tpu needed

magamanmagaman Posts: 14Member
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 :)







:-)[green]I'm A Christian[/green]:-)
:-)[blue]THE MIGHTY MAGAMAN[/blue]:-)

Comments

  • scorpionxx7scorpionxx7 Posts: 39Member
    : 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:
    [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.
    [/code]
  • magamanmagaman Posts: 14Member
    : : 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:
    : [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.
    : [/code]
    :
    i dont have the mmsystem.tpu file.Do u know where i can get a copy?
    thx




    :-)[green]I'm A Christian[/green]:-)
    :-)[blue]THE MIGHTY MAGAMAN[/blue]:-)

  • GaashiusGaashius Posts: 349Member
    : : : 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:
    : : [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.
    : : [/code]
    : :
    : i dont have the mmsystem.tpu file.Do u know where i can get a copy?
    : thx
    :
    :
    :
    :
    : :-)[green]I'm A Christian[/green]:-)
    : :-)[blue]THE MIGHTY MAGAMAN[/blue]:-)
    :
    :
    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!

    :-) [b][blue]GAASHIUS[/blue][/b] :-)


  • scorpionxx7scorpionxx7 Posts: 39Member

    : :
    : 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
  • magamanmagaman Posts: 14Member
    :
    : : :
    : : 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




    :-)[green]I'm A Christian[/green]:-)
    :-)[blue]THE MIGHTY MAGAMAN[/blue]:-)

Sign In or Register to comment.