前一阵因为工作需要写了一个类来进行windows拨号，整理了一下，多封装了几个windows ras api，放上来大家提提意见。

开发技术指南» 文章正文

引言：前一阵因为工作需要写了一个类来进行windows拨号，整理了一下，多封装了几个windows ras api，放上来大家提提意见。

摘要： delphi的包是delphi ide的核心技术，没有包也就没有了delphi的可视化编程。包也可以用在我们开发的项目中，其好处是可以代码共享，减小工程尺寸，单纯通过替换包文件就能实现工程的升级和补丁。但是我们要加载包，就要知道包中已经存在的类。关于如何动态加载包的资料比比皆是我就不想就此问题讨论了。但是delphi的ide很是特殊，它无需事先知道你的包有哪些类就能注册组建，创建组建。但是bor......

·[tbutton]运行时动态创建和删除按钮 »显示摘要«

摘要：新开一个project，然后拖两个button放在窗体上代码如下：unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) btnaddbutton: t......

Delphi的拨号连接类

前一阵因为工作需要写了一个类来进行windows拨号,整理了一下,多封装了几个windows ras api,放上来大家提提意见.现在支持读取windows拨号连接列表.拨号.挂断.创建/删除连接,可以适用98/2000/xp,windows me 与nt没测试过,想来应该是可以的.以后有时间写成component,加入对拨号事件的支持.

【程序编程相关:用DELPHI实现对象持久层(-)】

uses 【推荐阅读:Delphi实用代码:自绘XP风格菜单】

type 【扩展信息:为Windows Service添加服务】

ras, classes, sysutils, strutils, windows, forms;

eraserror = exception;

type

trasconnection = class

private

fplatform: integer;

fconnected: boolean;

frasentries: tstringlist;

frasconn: hrasconn;

fparams: rasdialparams;

ferrno: integer;

function getpassword: string;

procedure setpassword(password: string);

function getphoneno: string;

procedure setphoneno(number: string);

function getcallback: string;

procedure setcallback(number: string);

function getdomain: string;

procedure setdomain(domain: string);

function getusername: string;

procedure setusername(username: string);

function getentryname: string;

procedure setentryname(entry: string);

function getconnected: boolean;

procedure setconnected(avalue: boolean);

function getrasentries: tstringlist;

public

property rasentries: tstringlist read getrasentries;

... 下一页

·判断monthcalander中鼠标点中了日期还是翻页按钮! »显示摘要«

摘要： uses commctrl; var oldwindowproc: twndmethod; procedure tform1.mywindowproc(var msg: tmessage);begin if msg.msg = cn_notify then begin case twmnotify(msg).nmhdr.code of mcn_getdaystate: memo1.lines......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：