摘要：你厌倦mediaplayer吗？用了它你的exe会大7k。
uses
windows, classes, forms, mmsystem, winprocs;
var
wdeviceid: word;
playwindow: hwnd;
procedure openmci(pwindow: hwnd; filename, devicetype: pchar);
var
......
摘要：unit unit1;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
mplayer, stdctrls;
type
tform1 = class(tform)
mediaplayer1: tmediaplayer;
button1: tbutt......
用Delphi制作动态菜单 所谓动态菜单是指菜单项随着程序的操作变化而变化.现在,我们用delphi来实现这一功能,具体步骤如下:
1．首先,确定动态菜单的数据来源,即要确定动态菜单标题是来自windows的系统注册表,还是来自一个数据库,或者是来自一个子目录,主要由程序的功能而定.这里假设主窗口名为mainform,上面已有主菜单,其动态菜单的数据源是一个string（字符串）类型的变量,名称为submenuitemsource. 【程序编程相关:
用Delphi设计自己的代理服务器】 【推荐阅读:
在Delphi中实现数据分析模块的动态报】
2．确定生成的动态菜单的功能,即定义动态菜单的onclick()事件,例如,动态菜单标题来自一个磁盘文件名时,那么程序在响应onclick()事件时,可能的操作是要打开选中的文件.因此,对菜单所在的主窗口模块的单元程序的数,据我们需要定义type后添加一个自定义的事件myclick(). 【扩展信息:
用Delphi编写ASP的ActiveX】
然后,需要编写如下myclick（）事件的具体内容:
procedure tmainform.myclick(sender: tobject);//动态菜单onclick事件响应
begin
show.message(tmenuitem(sender).caption);//显示选中的动态菜单标题,
end;
这里调用的showmessage标准例程(在dialogs.pas中)显示tmenuitem(sender).caption,它就是选择的菜单项的caption,类似用tmenuitem(sender).name则是选择菜单项的name....
下一页 摘要：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......
