- 博客(21)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 INF
If you need to install an "inf" file using Delphi, you could use the next code: ~~~~~~~~~~~~~~~~~~~~~~~~~{Usage: InstallINF(C:/XYZ.inf, 0) ;}uses ShellAPI;function InstallINF(c
2009-02-10 17:18:00
722
转载 Delphi启动或者停止windows服务的函数
uses WinSVC;// W3SVC ---Web Service MSSQLSERVER --- MS SQL Service OverTime 为超时处理，单位秒Function CtrlService(ServiceName: string; Status: Boolean; OverTime:Integer): Boolean; //控制WINDOWS的服务启动与
2009-02-10 11:24:00
1822
转载 delphi调用cmd的两种方法
delphi调用cmd的两种方法2008年10月01日 星期三 12:221vars:string;begins:=cmd.exe /c +edit1.Text+ >c:/1.txt;winexec(pchar(s),sw_hide);sleep(2000);memo1.Lines.LoadFromFile(c:/1.txt);2shellexecute(han
2009-02-10 11:17:00
6566
转载 SHGetFileInfo函数
SHGetFileInfo函数// 确认在USES分句中包含ShellApiinterfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi, FileCtrl;type TForm1 = class(
2009-02-10 10:50:00
1788
原创 通过API函数得到操作系统类型
unit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, CommDlg; typeTForm1 = class(TForm)Button1: TButton;procedure Button1C
2009-02-10 10:46:00
593
转载 IE 代理服务器设置程序实现
IE 代理服务器设置程序实现本文其实.没有什么价值.写出来也是处于好玩.因为.最近闲的要命.所以总喜欢去些BBS聊天室之类的地方打发时间可是.突然发现这些地方总是喜欢记录IP真是麻烦.别人一跟踪马上就查出你的位置.实在是不爽.所以.就只好设置代理服务器.IE的设置是带这个功能的.所以很简单.只要设置就可以了.不过,实在觉得.那样太简单了.所以就想自己做一个程序实现.可是没什么眉目.不过突然想到腾讯
2009-02-09 21:42:00
1000
原创 注册表操作
procedure TForm1.FormCreate(Sender: TObject);var ARegistry:TRegistry; begin ARegistry:=TRegistry.Create; //创建一个TRegistry对象 with ARegistry dobegin RootKey:=HKEY_LOCAL_MACHIN
2009-02-09 21:36:00
525
原创 Windows优化大师x.xx注册机源码
DELPHIunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Registry, StdCtrls, Buttons;typeTForm1 = class(TForm)Label1: TLab
2009-02-09 21:33:00
850
转载 BAT
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI; type TForm1 = class(TFor
2009-02-09 14:33:00
489
转载 Delphi里删除目录的函数
其实网上已经有很多的例子了，不过对于和我一样的初学者来说难免会遇到问题，我试过win32Api函数，也试过用removeDirectory，但都删不掉指定目录，分析了一下，很显然，是这些函数只是单纯的删除空文件夹，非空文件夹删不了的。也不知是不是我用的不对，总之用了下面这个函数挺灵的，帖出来大家分享下。 function TMainForm.DeleteDirectory(NowP
2009-01-14 22:08:00
1618
翻译 Delphi获取完整路径
Delphi 从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别： ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“/” ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“/”，除非返回的路径是根目录。 样例代码： S
2009-01-14 21:57:00
718
原创 点击Dbgrid数据显示在combobox
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin with DBGrid1.DataSource.DataSet do begin if Active and (RecordCount
2009-01-07 20:19:00
620
原创 delphi编程技巧
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false);◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,
2008-04-29 11:01:00
1009
1
原创 Hint 多样性
普通Hint：直接设置窗体和组件的ShowHint属性为True，并在其Hint中输入文字内容即可。解释：ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，Hint属性指定文本提示盒中的文本。用户可在对象监视器（ObjectInspector）的属性栏中设置或在程序中修改Hint及ShowHint属性。 经改造的Hint：Delphi还在类TApplication中提供了Hin
2008-04-29 10:53:00
656
原创 Hint
但鼠标移动到某控件上，将会显示文字说明HINT属性输入显示内容且SHOWHINT设为TRUE即可如果想把文字显示在状上，使用下面procedure TForm1.AppHint(Sender: TObject); begin Statusbar1.Panels[0].Text:=Application.Hint; end;
2008-04-29 10:47:00
417
转载 Delphi制作DLL
一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个TForM 八 在DLL中建立一个TMDIChildForM 九 示例： 十 Delphi制作的Dll与其他语言的混合编程中常遇问题： 十一 相关资料 一 Dll的制作一般分为以下几步： 1 在一个DLL工程里写一个过程或函数
2008-02-10 20:22:00
602
转载 DELPHI调用API
为了能在Windows下快速开发应用程序，Delphi对Windows的控件都进行了很好的封装，这样，我们就可以直接使用Delphi的控件来编写程序，而不用使用格式、调用控制复杂的API来进行开发，为我们节省了大量的开发时间。 可有时候这些控件解决不了我们的问题，这个时候我们就不得不使用API了，也就是Windows的应用程序接口。这样，问题也就随之而来了，API是用C++语言编写的，而Delp
2008-02-10 20:17:00
1539
转载 Delphi 部分函数收集资料
1、StringOfChar2、FileSetAttr(const FileName: string; Attr: Integer): Integer;3、FileGetAttr(const FileName: string): Integer;4、SaveToFile5、LoadFromFile6、FileExists文件是否存在7、directoryexists
2008-02-10 20:15:00
619
转载 Delphi 使用API函数详解
DOS下的INT21H对于开发DOS程序很重要，而对于在WINDOWS下开发程序，了解API函数是很有必要的。元件就像招式，而API函数就好比内功心法，有了高深的内力，那么学习招式就易如反掌啦。所以，掌握的API函数越多，你就越可能成为DELPHI高手，甚至WINDOWS编程高手。所以，无论是C＋＋，VB还是DELPHI都无一例外的支持API函数的调用，C＋＋和DELPHI是全面支持API函数，而
2008-02-10 20:14:00
1008
转载 QQ连连看 for Delphi 源码
kbhook.DLLlibrary kbhook;{ Important note about DLL memory management: ShareMem must be thefirst unit in your librarys USES clause AND your projects (selectProject-View Source) USES clause if yo
2008-02-10 13:27:00
2330
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人