摘要：
//声明:sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行}SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}SND_MEMORY = 4; {播放内存中的声音, 譬如资源文件中的声音}SND_LOOP = 8; {循环播放, 需要和 SND_ASYNC 组合使用}SND_NOSTO 阅读全文
摘要：
Delphi使用Indy、ICS组件读取网页使用Indy 10中TIdHTTP的例子：代码usesIdHttp;...functionHttpGet(constUrl:string;varHtml:string):Boolean;varHttpClient:TIdHTTP;beginResult:=False;HttpClient:=TIdHTTP.Create(nil);tryHtml:=HttpClient.Get(Url);Result:=True;exceptone:Exceptiondobeginend;end;HttpClient.Free;end;Indy采用的是同步I/O的方式 阅读全文
摘要：
http://www.cnblogs.com/28088191/archive/2008/12/25/1362519.html下面是一个在14个数据产生10个不重复的随机数-----------------------------------------------procedure TForm1.Button1Click(Sender: TObject);var a:array[1..14]of integer;//14个数 b:array[1..10]of integer;//结果 c:array[1..14]of boolean;//标志，默认false i,temp:integer; 阅读全文
摘要：
Delphi:界面美化,用网页做界面用TWebBrowser控件设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中123456var str:string;begin str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页 webbrowser1.Navigate(str);End;假设网页中有一个链接控件的OnBeforeNavigate2事件12345678910procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObje 阅读全文
摘要：
FireBird 1.5 Quick Start(快速入门)简体中文 FireBird1.5的快速入门，有一份繁体版在http://csc.ocean-pioneer.com/docum/firebird/firebird.html，现在把它转为简体中文了FireBirdDatabase (快速入门)参考文件(均可自firebird网站找到):Novice's GuideMigration from MS-SQL to firebirdFirebordRelease Notes学习数据库基础是在sql的语法应用(请参考:firebird网站的说明文件最好把这份文件印出来,在写程序时可以 阅读全文
摘要：
当Delphi支持了Unicode，它将会变成什么样子呢？我的看法如下：1. 开发变得复杂了，因为要更多的考虑编码问题2. 绝大多数控件都需要修改，以使其能适应Delphi20093. 多国语言的软件得到了较好的支持第一点和第二点，相信很多人都有体会了，原本在Delphi2007上通顺利编译通过的项目，放到Delphi2009上就要进行很大的改动。特别是API的调用，MessageBoxA改成MessageBoxW之类，会让原本简单的程序变得很复杂。我在论坛上承接移植控件的项目时，已经有很深的体会。比如说 str: array[0..15] of Char，原本这个 str 是可以直接拿来用作 阅读全文
摘要：
转http://www.programbbs.com/doc/175.htm首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来，免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示我的低级，我会很罗嗦的讲一些基本的东西，这些都是我的理解,很不准确。用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的：回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如windows操作系统，比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型，你 阅读全文
摘要：
http://cy03wqh.blog.163.com/http://blog.csdn.net/sunstone/category/608413.aspx 阅读全文
摘要：
FROM:http://hi.baidu.com/ytlvy2008/blog/item/e5a03ad1b1447cdb572c849f.html多线程编程(1) - 先入门再说。 多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样). 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to 500000 do begin Canvas.TextOut(10, 1 阅读全文
摘要：
unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm2 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; L 阅读全文