摘要:unit unit1;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
mplayer, stdctrls;
type
tform1 = class(tform)
mediaplayer1: tmediaplayer;
button1: tbutt......
摘要:unit functs;
interface
uses
wintypes, classes, graphics, sysutils;
type
tpoint2d = record
x, y: real;
end;
tpoint3d = record
x, y, z: real;
end;
function point2d(x, y: real): tpo......
不用MediaPlayer播放Midi你厌倦mediaplayer吗?用了它你的exe会大7k.
uses 【程序编程相关:
用Delphi实现图形化批量IP检测】 【推荐阅读:
用Delphi编写ASP的ActiveX】
windows, classes, forms, mmsystem, winprocs; 【扩展信息:
作非常规程序菜单掌握delphi】
var
wdeviceid: word;
playwindow: hwnd;
procedure openmci(pwindow: hwnd; filename, devicetype: pchar);
var
openparms: tmci_open_parms;
style: longint;
begin
playwindow := pwindow;
openparms.lpstrdevicetype := devicetype;
openparms.lpstrelementname := filename;
style := mci_open_type or mci_open_element;
mcisendcommand(0, mci_open, style, longint(@openparms));
wdeviceid := openparms.wdeviceid;
end;
procedure playmci;
var
info: tmci_play_parms;
begin ...
下一页 摘要:unit bmp-disaper;
interface
uses
sysutils,wintypes,winprocs,messages,classes,graphics,controls,forms,dialogs,ex
tctrls,stdctrls;
type
tform1=class(tform)
image1:timage;{显示渐隐图像}
timer1:......