该文被密码保护。 阅读全文
摘要：
在PAR文件中引用UAC.RES文件(见下载地址)代码如下：{$R uac.RES}点击下载 阅读全文
摘要：
关于 GIF 的相关类是 TGIFImage，在 GIFImg 单元中，看下面的代码，窗体中的 GIF 就动起来了：1 uses GIFImg;1 procedure TForm1.FormCreate(Sender: TObject);2 begin3 // 先在窗体上放一个 TImage 组件：Image1；4 Image1.Picture.LoadFromFile('C:\Example.gif');5 // AnimationSpeed 设定动画速度，值越大，速度越快；6 TGIFImage(Image1.Picture.Graphic).AnimationSpeed 阅读全文
摘要：
在DELPHI2010中安装Comport控件，安装好久，都编译不过，好不容易摸索出来了。安装步骤如下：1、将 Source 文件夹复制到您的源码文件中；2、在DELPHI 中的Library Path 目录文件中添加刚才Source 文件夹的目录地址；3、打开 CPortLibXXX.dpk文件，选择编译(如：CPortLibD2010.dpk)；4、找到编译的文件，CPortLibD2010.bpl，CPortLibD2010.dcp，复制到 Source 文件夹的目录中；5、打开 DsgnCPortXXXX.dpk 文件，选择安装即可。注:第4步是关键，一定要复制到 Source 文件夹 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);varPach:string;beginPach:='E:\123\223'; //定义目录地址if not DirectoryExists(pach) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirectory) ForceDirectories(Pach); endelse begin showmessage('目录已经存在'); end;end; 阅读全文
摘要：
{*******************************************************************}{ }{ Almediadev Visual Component Library }{ BusinessSkinForm }{ Version 10.06 ... 阅读全文
摘要：
在用INNO SETUP制作安装脚本时常常遇到DLL没有注册而安装完成后运行程序出现错误的问题经过一系列的搜索终于找到了解决方案 特此共享代码如下：[Files]Source: "DLL文件所在路径"; DestDir: "{app}"; Flags:ignoreversion regserverSource: "DLL文件所在路径"; DestDir: "{app}"; Flags:regtypelib代码解析：其中Flags:段的regserver参数就是注册在RUN段就是多余的ignoreversion 忽略 阅读全文