Changeset 21 for trunk/Sound.pas


Ignore:
Timestamp:
Jan 8, 2017, 3:12:18 PM (6 years ago)
Author:
chronos
Message:
  • Fixed: Run as 64-bit application. Can't load 32-bit StdAI library in 64-bit mode.
  • Fixed: Various Warnings and Hints.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Sound.pas

    r18 r21  
    44
    55uses
    6   Messages, SysUtils, Classes, Graphics, Controls, Forms {$IFDEF WINDOWS}, MMSystem{$ENDIF};
     6  Messages, SysUtils, Classes, Graphics, Controls, Forms {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF};
    77
    88function PrepareSound(FileName: string): integer;
     
    7373  begin
    7474    PlayParm.dwCallback := HWND;
    75     mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, integer(@PlayParm));
     75    mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, DWORD_PTR(@PlayParm));
    7676  end
    7777  {$ENDIF}
Note: See TracChangeset for help on using the changeset viewer.