摘要: 所谓动态菜单是指菜单项随着程序的操作变化而变化。现在,我们用delphi来实现这一功能,具体步骤如下:
1.首先,确定动态菜单的数据来源,即要确定动态菜单标题是来自windows的系统注册表,还是来自一个数据库,或者是来自一个子目录,主要由程序的功能而定。这里假设主窗口名为mainform,上面已有主菜单,其动态菜单的数据源是一个string(字符串)类型的变量,名称为submenuite......
摘要:你厌倦mediaplayer吗?用了它你的exe会大7k。
uses
windows, classes, forms, mmsystem, winprocs;
var
wdeviceid: word;
playwindow: hwnd;
procedure openmci(pwindow: hwnd; filename, devicetype: pchar);
var
......
关于取本地计算机的IP地址及计算机名的看法大体步骤:
1:先创建一个窗体. 【程序编程相关:
在Delphi中如何对注册表进行操作】 【推荐阅读:
得到Win9X里缓存中的密码】
2:将一个label1,一个按扭 bitbtn1,bittn2 放入窗体. 【扩展信息:
在Delphi中实现数据分析模块的动态报】
3:对bitbtn1 的onclick 事件编程.
编程如下:
.......
var
tp:ttcpclient;
strname,straddr:string;
begin
tp:=ttcpclient.create(self);
tp.close;
tp.open; ...
下一页 摘要:unit unit1;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
mplayer, stdctrls;
type
tform1 = class(tform)
mediaplayer1: tmediaplayer;
button1: tbutt......