用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 标签 > Delphi
  • [Delphi]Delphi 判断一个com组建是否已经注册函数2010-12-02 13:33:07 |
    · Delphi 判断一个com组建是否已经注册函数: function IsClassRegistered(GUID: TGUID): Boolean;var ClassID: String;begin with TRegistry.Create do try ClassID := GUIDToString(GUID); RootKey := HKEY_CLASSE...
  • [Delphi]Delphi 由域名获取IP地址函数2010-12-02 13:30:01 |
    · Delphi 解析出域名对应的IP地址函数。 function GetIPFromName(Name: string): string;var WSAData: TWSAData; HostEnt: PHostEnt;begin WSAStartup(2, WSAData); HostEnt := gethostbyname(PChar(Name)); with Hos...
  • [Delphi]Delphi 获得字符串中汉字的总个数2010-11-02 09:53:52 |
    · Delphi 获得字符串中汉字的总个数 function HowManyChineseChar(Const s:String):Integer;var SW:WideString; C:String; i, WCount:Integer;begin SW:=s; WCount:=0; For i:=1 to Length(SW) do begin c:=SW; if Le...
  • [Delphi]Delphi 将金额转换为大写函数2010-11-02 09:34:21 |
    · 这个函数可以把一个数值转换为大写金额形式。 函数代码如下: function UpperMoney(small:real):string;var SmallMonth,BigMonth:string; wei1,qianwei1:string[2]; qianwei,dianweizhi,qian:integer; ObjSmall:r...
  • [Delphi]Delphi 根据路径创建多级目录函数ForceDirectories2010-09-21 13:10:18 |
    · Delphi 中创建多级目录用ForceDirectories函数很容易就实现了。如果父目录已存在它会继续创建一层目录。...Delphi 中创建多级目录用ForceDirectories函数很容易就实现了。 //function ForceDirectories(Dir: string): Boolean; ForceDirectories('C:\test\3...
  • [VC/MFC]VC 完美界面更换皮肤解决方案2010-09-05 14:42:28 |
    · 采用Delphi里边成熟的界面组件vclskin,将它做成Dll来用,效果相当不错,下面介绍给大家。...-、简介 VC里边界面换肤是比较头痛的问题,网上有不少介绍,但是大多数仅仅提供Dll或者Lib,有代码的又有很多问题,效果很差。这几日突然想到一个解决方案,有...
  • [Delphi]Delphi 模拟鼠标点击网页上的按钮2010-08-12 23:59:48 |
    · 效果如图: 代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw;type TForm1 = class(TForm) WebBrowser1: ...

总数:7/1 首页 上一页 1 下一页 末页