08 2009 档案

- 播放 wav 文件

摘要: sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行}SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回...阅读全文

posted @ 2009-08-30 17:40 白兴科技 阅读(71) | 评论 (0) 编辑 |

在Delphi中使用Indy控件实现邮件群发

摘要: 摘要：本文通过对Indy控件集中TIdMessage、TIdSMTP控件的属性、方法分析，介绍了一种使你的计算机具有邮件群发功能的方法，使你与大量朋友之间的沟通更为方便。可以不加修改地应用于Delphi应用程序中，具有很强的实用性。关键字：Delphi，Indy控件集，邮件群发随着人们交往的不断扩大，人与人、单位与单位之间的邮件通讯日益普及，通过邮件群发，可以将会议通知、产品说明、产品报价等通过邮...阅读全文

posted @ 2009-08-17 11:30 白兴科技 阅读(395) | 评论 (0) 编辑 |

Delphi ListView排序

摘要: 下面这种做法比较容易理解。可以参考一下，我一直是这样做的，效果很好 var m_bSort: boolean=false; //控制正反排序的变量 //ListView排序的回调函数，默认的是快速排序法，也可以自己在这里做算法 function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdca...阅读全文

posted @ 2009-08-17 11:28 白兴科技 阅读(289) | 评论 (0) 编辑 |

TStringList 常用操作(转自南山古陶)

摘要: //TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插...阅读全文

posted @ 2009-08-17 11:22 白兴科技 阅读(178) | 评论 (0) 编辑 |

posts - 24, comments - 5, trackbacks - 0, articles - 79

Copyright © 白兴科技