摘要：SetWindowLong(Handle,GWL_STYLE,WS_SYSMENU); 阅读全文

摘要：function DeleteDirectory(mSource: string): Boolean; var vSHFileOpStruct: TSHFileOpStruct; begin FillChar(vSHFileOpStruct, SizeOf(vSHFileOpStruct), 0); with vSHFileOpStruct do begin Wnd := Ap... 阅读全文

摘要：var SbarWh,SbarHt:integer;begin SbarHt:=getsystemmetrics(SM_CXHSCROLL);//水平滚动条的高度 SbarWh:=getsystemmetrics(SM_CYHSCROLL);//垂直滚动条的宽度 lblWidth.Caption:='宽度:'+ inttostr(sbarwh)+ 'Pixels ' + ' 高度:' + intt... 阅读全文

摘要：使用Delphi编写游戏，唯一没有C++方便的就是不支持运算符重载。当你编写有关向量或者矩阵计算的程序时，不支持运算符重载的Delphi使用起来是很费劲的。但是Delphi 2006改变了这种局面，新的Delphi内核已经支持运算符重载了！本文将介绍如何使用Delphi的运算符重载功能 注意：只有Delphi 2006 和 免费版的 Turbo Delphi 支持这一功能！Delphi for W... 阅读全文

摘要：当form的border style为bsnone时，form页面不可以移动即鼠标禁用。以下可以解除禁用.procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAN... 阅读全文

摘要：unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, RzButton;type TForm5 = class(TForm) btn1: TRzButton; HotKey1: THotKey; procedure ... 阅读全文

摘要：关闭所有数据库控件直接拷贝copyfile(pchar('file.mdb'),PAnsiChar('f_to.mdb'),false); 恢复再拷贝回来copyfile(pchar('f_to.mdb'),PAnsiChar('file.mdb'),false); 阅读全文

摘要：Delphi中的用于表示时间的类型： 首先，看一看在delphi中用于描述时间的几种数据结构，对时间的操作，其实就是对这些结构的操作。 TDateTime类型： Delphi中最常用的表示日期时间的数据类型TDateTime类型，和普通的整形数一样，你可以给日期定义一个日期型变量以便在程序中进行操作。TdateTime类型实质上是一个Double型的数，在Delphi中是这样定义TdateTime... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry;begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; {在注册表中添加我们虚拟的 .tst 格式, 并指定默认项的值是 TestFile} reg.OpenKey('.tst', True);... 阅读全文

摘要：例：btnTest按钮btnTest按钮的onkeydown 里写 if Key=VK_RETURN then begin　　btnTestClick(nil); end; 阅读全文

摘要：function TfrmTest.ParseDssFilesName(const strParam: string; strSplit: string): TStringList;var tmpDssFileName: string; i: integer;begin Result := TStringList.Create; if strParam = '' then begin exit; ... 阅读全文

摘要：http://borland.mblogger.cn/aiirii/posts/4902.aspx 阅读全文

摘要：sDataPath := ExtractFilePath(Application.ExeName) + '123.mdb';ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + sDataPath + ';Persist Security Info=False'; 阅读全文

摘要：http://hi.baidu.com/calloy/blog/item/cbbb84fa03acecddb58f31ca.html今天下午我写了一个小程序,所有文件都存放在"学习笔记"文件夹中,在工程完成之前的几次编译中.都很正常,有错误提示都是因为语法和一些小错误.后来工程文件的功能全部完成时,进行编译出现 [F2039]Could not create output file "projec... 阅读全文

摘要：http://www.cnblogs.com/del/archive/2008/08/24/1274892.html 阅读全文

摘要：1.获取文件的绝对路径..ExtractFilePath(Application.ExeName)+文件名;2.打开exe文件ShellExecute(0, nil, 文件的绝对路径+文件名, nil, nil, SW_NORMAL); HINSTANCE ShellExecute( HWND hwnd, // handle to parent window LPCTSTR ... 阅读全文

摘要：type TForm1 = class(TForm)... private procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ; message WM_GETMINMAXINFO;...implementationprocedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ;begin wi... 阅读全文

摘要：Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：　　一、 查找窗口法　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题... 阅读全文

摘要：有一个功能要求就是【每次打开文件的对话框的默认路径是上一次保存文件的路径】，本来这个就是设置OpenDialog控件的InitialDir属性就行了，但是第一次打开的时候还行，把文件保存在另一个目录下，再打开OpenDialog对话框时弹出的还是第一次的目录，让人很不解。。。但是SaveDialog对话框，满足上面提到的要求，OpenDialog和SaveDialog两个控件的初始情况如下： O... 阅读全文

摘要：{鼠标：右击，左击，单击，双击，滚轮，拖曳}在Windows环境下，鼠标和键盘是主要的输入设备。 在Delphi中几乎每个对象都具有反映鼠标控制的事件，这些事件的主要功能包括改变鼠标指针的形状，移动、触发、拖动鼠标等。鼠标控制的三个相关属性是Cursor、DragCursor、DragMode；鼠标(拖拽)控制的三个对象方法是BeginDrag、Dragging、EndDrag；鼠标控制的七个事件... 阅读全文