WaitForSingleObject 等待什么? 在多线程里就是等待另一个线程的结束, 快来执行自己的代码; 不过它可以等待的对象可不止线程; 这里先来一个等待另一个进程结束的例子, 运行效果图: 代码...
当点击最大化最小化按钮是的行为. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure...
思路1： 需要重启程序的时候，在onclose事件里面调用了一个批处理bat文件（AT 脚本）； 然后在批处理文件里面加入适当延迟（比如2秒）；通过批处理文件重新启动该程序； 思路2： 你...
delphi获取程序所在目录 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMes...
静态方式： 1、新建VCLFormsApplication； 2、打开菜单Project-Application-Appearance； 3、在CustomStyles中可选择所有默认带的皮肤样式； 4、设置Defaultstyle后，启动软件后便以默认的样式显示界面。...
var P: TPoint; ahwnd:hwnd; rec:Trect; begin GetCursorPos(P); //取得当前鼠标所在窗体的句柄 ahwnd:=WindowFromPoint(P); GetWindowRect(form1.Handle,rec); Self.Caption :='桌面坐标'+ Format('X: %d, Y: %d',[P.X, P.Y])+' REC：'+in...
function GetHost(TheURL: string): String; var FURL: String; begin FURL := TheURL + '555'; if pos(UpperCase('http://'), UpperCase(FURL)) 0 then begin Delete(FURL, 1, Length('http://')); end; Result := Copy(FURL, 1, pos('/', FURL) - 1); end;...
近来一段时间忙的慌，接了个帮人升级系统的小单子。其中涉及到将DbGrid的数据转到Excel文件并保存的功能，其实本身倒也不难。只是有些麻烦。想想这种功能，肯定有先人已经写好的...
这个例子是我原来写的一个完成端口演示程序，没有经过严格的稳定性校验，只是做为如何编写的一个样本，仅供大家参考，下面是完成端口的简单介绍： “完成端口”模型是迄今为止...
onkeypress事件中写一下代码: if Key=#13 then SelectNext(ActiveControl,True,True);...