摘要：
ini 文件操作记要(1): 使用 TIniFileunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButt... 阅读全文
摘要：
先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件：xpanel:=x;ypanel:=y; P 阅读全文
摘要：
Q: 怎么来改变ListBox的字体呢？就修改其中的一行。A: 先把ListBox1.Style 设成lbOwnerDrawFixed然后在 OnDrawItem 事件下写下如下代码procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varOffset: Integer;beginOffset := 2;with (Control as TListBox).Canvas do beginFillRect(Rect);if Index 阅读全文
摘要：
------------------------------------------------------- ◇删掉程序自己的exe文件 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var F:TextFile; begin AssignFile(F,'delself.bat'); Rewrite(F);{F为TextFile类型} WriteLn(F,'del '+ExtractFileName(Application.ExeName)); WriteLn(F, 阅读全文
摘要：
在Windows中，有一类程序称为服务，在操作系统内核加载完成后就开始加载。这里程序往往运行在操作系统的底层，因此资源占用比较大、执行效率比较 高，比较有代表性的就是杀毒软件。但是一旦因为特殊原因不能正确卸载这些程序了，其加载在Windows内的服务就不容易删除了。即便是删除注册表中的相 应项目，虽然不启动了，但是系统中仍然存在此项服务，只是没有加载而已。如果安装其他的程序需要操作对应的地方的时候就容易出现兼容性问题了。那么如何彻 底的卸载也就是把服务也卸载掉呢？在命令行模式下输入 sc,看到了吧,一大堆命令语法：sc create | delete | config 服务名 [参数]主要参数 阅读全文
摘要：
Windows 8操作系统发布之后，因为其新颖的界面和对触屏友好的设计，使许多长期使用Windows系统的用户，也觉得一时难以适应，一些操作方式也不知道如何去实现。在Windows系统中，快捷键无疑是提高操作速度的杀手锏。然而，Windows 8系统的快捷键相对于前几代又有了新的变化，小编整理了一下，罗列出来如下： Windows键+空格键：切换输入语言和键盘布局 Windows键+O：禁用屏幕翻转 Windows键+,：临时查看桌面 Windows键+V：切换系统通知信息 Windows键+Shift+V：反向切换系统通知信息 Windows键+回车：打开“讲述人” Windo... 阅读全文
摘要：
delphi 换行操作我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。 procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见，值为false时，程序在后台运行。 FWord.Visible := True; except mess 阅读全文
摘要：
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线... 阅读全文
摘要：
XP 之后, Delphi 动注册表不方便了...逼出来一个办法:手头的程序需要修改注册表, 以让当前程序成为某格式的默认打开程序并关联图标; Vista 之后需要管理员权限才能操作注册表, 很麻烦, 所以有了下面的尝试.unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 =... 阅读全文
摘要：
STA 单元 (用到 System.SysUtils.TStringHelper):------------------------------------------------------------------------------------------------------------------------------------------unit STA;interfaceuses System.SysUtils, System.Classes;type TSta = record FSeparator: Char; FArr: TArray>; con... 阅读全文