摘要：此处的句柄请不要用另一个程序中的控件句柄！就算用了，也找不到控件！ procedure TForm1.Button1Click(Sender: TObject);begin if FindControl(StrToIntdef(Edit1.Text,0))<>nil then ShowMessage
阅读全文
01 2021 档案
摘要：本人C++是个菜鸟， C++编写的DLL，Delphi调用，先弄个简单的C++的DLL； C++ Delphi： Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con
阅读全文
摘要：开发环境是Delphi7 此处用的是临界；信号量，互斥就不做测试了！ 仅仅是测试，哈哈 Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
阅读全文
摘要：资料来源别处，谢谢 Application.HintHidePause:=30000;//显示多久隐藏 HintHidePause，HintPause，HintShortPause，控制着提示窗显示的时间等。HintHidePause指定提示窗口在屏幕上显示的时间，以毫秒为单位。HintPause则
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, Grids, DBGrids, StdCtrls,
阅读全文
