08 2013 档案
delphi制作dll
摘要:一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform九 示例:十 Delphi制作的Dll与其他语言的混合编程中常遇问题:十一 相关资料一 Dll的制作一般分为以下几步:1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字,在其下写过程的名称。不用写参数和调用后缀。二 参数传递1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程],来报出调用成功或失 阅读全文
posted @ 2013-08-28 16:41 倾天 阅读(460) 评论(0) 推荐(0)
实现半透明效果
摘要:用过Win2000 的朋友肯定知道Win2000 的“半透明效果”,它可以透视背景或底层的其他位图,而不是一般文章所介绍的不规则窗口技术。然而,本文将讨论在Win98环境中实现“半透明效果”的方 法。由于Delphi 在RAD 方面的优势,所以本文使用Del p h i 作为开发工具,看过本文以后,你会发现原来用Delphi 来实现是这么简单。我们知道,在Delphi 中生成一个新的窗口时,会生成一个长方形的窗口并盖住背景。为了实现半透明效果,首先就得实现“透明”的效果,为此,我们需要截获WM_ERASEBKGND 消息,传递给Windows一个处理过的标志就可以了。这样,我们程序的背景使用的 阅读全文
posted @ 2013-08-23 14:00 倾天 阅读(606) 评论(0) 推荐(0)
自绘按钮,添加Color属性(转载)
摘要:在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性,有时你可能做了一个五颜六色的程序界面,而按钮颜色可能很不相称。在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法,它遵循了Delphi的组件定义规则,完成后该按钮与普通按钮(Button)相比,多了一个Color属性,你可以永远地使用它,在设计阶段随意地改变颜色,就象是Delphi本身提供的组件一样(本文代码在Delphi 4.0下完成)。第一步打开Delphi,选择菜单的Component/New Component选项,在弹出对话框的Ancestor type下拉框中手工填入或下拉选择TB 阅读全文
posted @ 2013-08-20 08:27 倾天 阅读(502) 评论(0) 推荐(0)
为汉语名字生成首字母助记码
摘要:{生成字符串的助记码 }Function GetZJM(Value: String):String;var I, L: Integer; C: array[0..1] of Char; R: Char;begin Result := ''; L := Length(Value); I := 1; while I #0 then Result := Result + R; Inc(I, 2); end; end; if I = L then Result := Result + Value[L];end;{获取汉字字符串的拼音码}Function GetHZM(Value: ar 阅读全文
posted @ 2013-08-07 13:25 倾天 阅读(438) 评论(0) 推荐(0)
DELPHI 获取本月 的第一天 和 最后一天
摘要:USER :DateUtils使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可;procedure TForm1.btn1Click(Sender: TObject);begin mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now))); //mmo1.Lines.Add(DateTimeToStr(StartOfTheMont 阅读全文
posted @ 2013-08-06 16:15 倾天 阅读(570) 评论(0) 推荐(0)
删除文件夹内所有文件
摘要:function TForm1.DeleteDirectory(NowPath: string): Boolean; // 删除整个目录var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPath)] '\' then NowPath := NowPath + '\'; key := NowPath + '*.*'; ret := findFirst(key, faanyfile, search); while ret = 0 do begin 阅读全文
posted @ 2013-08-03 13:21 倾天 阅读(397) 评论(0) 推荐(0)