- 博客(9)
- 资源 (2)
- 收藏
- 关注
原创 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 697
转载 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 1777
转载 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 6524
转载 SHGetFileInfo函数
SHGetFileInfo函数// 确认在USES分句中包含ShellApiinterfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi, FileCtrl;type TForm1 = class(
2009-02-10 10:50:00 1755
原创 通过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 574
转载 IE 代理服务器设置程序实现
IE 代理服务器设置程序实现本文其实.没有什么价值.写出来也是处于好玩.因为.最近闲的要命.所以总喜欢去些BBS聊天室之类的地方打发时间可是.突然发现这些地方总是喜欢记录IP真是麻烦.别人一跟踪马上就查出你的位置.实在是不爽.所以.就只好设置代理服务器.IE的设置是带这个功能的.所以很简单.只要设置就可以了.不过,实在觉得.那样太简单了.所以就想自己做一个程序实现.可是没什么眉目.不过突然想到腾讯
2009-02-09 21:42:00 978 1
原创 注册表操作
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 504
原创 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 796
转载 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 466
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人