2013年11月17日
注册全局热键
摘要： 注册全局热键(实例热键显示和隐藏窗体) ctrl+alt+aunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: ... 阅读全文
posted @ 2013-11-17 20:36 XE2011 阅读(324) 评论(0) 推荐(0)
使用多线程实现打字效果
摘要： 使用多线程实现打字效果 unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;ty... 阅读全文
posted @ 2013-11-17 13:49 XE2011 阅读(250) 评论(0) 推荐(0)
Delphi 调用外部程序并等待其运行结束
摘要： Delphi 调用外部程序并等待其运行结束function CreateSingleObject(FileName: string):Boolean;var s: TStartupinfo; p: TProcessInformation;begin Result:=False; FillChar(s, Sizeof(TStartupinfo), 0); s.cb := Sizeof(... 阅读全文
posted @ 2013-11-17 13:46 XE2011 阅读(610) 评论(0) 推荐(0)