- 博客(16)
- 资源 (30)
- 收藏
- 关注
RSS订阅原创 CreateService
function InstallService: Boolean; var schSCManager, schService: THANDLE; strDir: array[0..1023] of char; lpszBinaryPathName: PChar; begin schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if schSCManager = 0 then begin
2010-12-30 20:24:00
1463
原创 Delphi调用DLL文件里的窗体
Delphi调用DLL文件里的窗体 在我们写程序时候，有些窗体要重复使用，最好就是把这些窗体写到一个DLL文件里去，这样就比较方便调用，下面的演示如何调用DLL文件里的窗体。 DLL文件 {*******************************************************} {
2010-12-30 03:37:00
2438
原创 SHGetFileInfo函数 获取系统文件类型及图标
<br />SHGetFileInfo函数<br />function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;<br /> var psfi: TSHFileInfo; cbFileInfo, uFlags: UINT): DWORD; stdcall;<br />pszPath 参数:指定的文件名。<br /> 当uFlags的取值中不包含 SHGFI_PIDL时,可直接指定;<br /> 当uFlags的取值中包含 SHGF
2010-12-30 03:28:00
1166
原创 在Delphi中使用系统对应文件类型的图标
<br />在应用程序的编写中，组合框（ComboBox）、列表框（ListBox）、等常见的部件，通常不仅要用于显示文字，而且还要显示其与文字相关的图标。在一般的Windows应用程序中，这些图标的显示都要随列出的显示文本的变化而变化，例如在组合框中列出当前目录下的所有文件时，在组合框左边就显示与文件名相关联的图标，这就是所谓的动态图标。在Delphi中使用动态图标的步骤如下： <br /> <br /> <br /> 一、图标的获取<br /> 要使用动态图标，首先要解决的是如何获得显示文本和与其相
2010-12-30 03:26:00
1377
原创 delphi启动停止windows服务
不用cmd用delphi如何实现启动停止windows服务建议参考一下Delphi的ScktSrvr原码， $(DELPHI)/Source/Vcl/ScktSrvr.dpr --------------------------------------------------------------------------------windows 系统服务----------------------------------------------------------------------
2010-12-30 03:13:00
2827
原创 Service
uses Variants,Winsvc, ComCtrls, ExtCtrls, Registry; private { Private declarations } { 返回服务状态 } function GetServiceState(dwCurrentState: DWord): string; { 读取注册表中的服务信息 } function ReadFromRegistry(ServiceName: string; KeyName: string;
2010-12-30 03:11:00
592
原创 NT Service Control App
NT Service Control App 一个NT服务的控制程序，意思就是说要用它来控制一个NT服务的安装、启动、停止、卸载这四个状态，它的过程是： １、先要打开系统的服务管理器（取得管理NT服务的权限）； 2、打开需要控制的NT服务（获得控制权）； 3、对该服务进行控制。 做法是： 一、使用 OpenSCManager打开本地默认的服务管理器。（用到这些API的
2010-12-30 03:09:00
667
原创 Service管理
windows 系统服务 -------------------------------------------------------------------------------- function StartService(AServName: string): Boolean; //use WinSvc var SCManager, hService: SC_HANDLE; lpServiceArgVectors: PChar; begin SCManager := Op
2010-12-30 02:34:00
488
原创 进程检测
function FindProcess(AFileName:string):boolean; var hSnapshot:THandle; lppe:TProcessEntry32; Found:Boolean; begin Result:=False; hSnapshot:
2010-12-29 20:29:00
359
原创 在 case 语句中使用字符串
<br /> 我今天要介绍的是一个比较另类的方法。大家都知道，case 语句只能对顺序类型6d6Linux联盟 （ordinal type）管用，那么我们先看一下顺序类型到底有那些呢：1)整型；2)字6d6Linux联盟 符型；3)枚举型。6d6Linux联盟 于是也就演化出三种在 case 语句里面使用字符串的方法（耐心看下去哦，最后一6d6Linux联盟 种方法才是今天的重点:-p）：6d6Linux联盟 6d6Linux联盟 假如我们的具体应用如下（理想的，但是错误的写法）：6d6Lin
2010-12-28 20:34:00
581
原创 delphi指针简单入门
<br />delphi指针简单入门: <br /> <br /> 看一个指针用法的例子： <br /> 1 var <br /> 2 X, Y: Integer; // X and
2010-12-28 20:32:00
508
1
原创 ShowModal
<br />begin Application.CreateForm(TForm2,form2); //Form2:=TForm2.Create(Application); //Form2.Show; Form2.ShowModal; ShowMessage('close');
2010-12-27 20:16:00
451
原创 private
<br />private { Private declarations } public function divisor(x,y:integer):integer;｛声明为类的一个函数，在（1）处用类的对象来调用实现；｝ end; ｛ function di
2010-12-27 17:10:00
525
原创 Function
Function week(Put:String):string; begin Result:='数据溢出'; if Put='mon' then result:='星期一' else if Put='sun' then result:='星期日' else if Put='tue' then result:='星期二' el
2010-12-21 20:18:00
350
原创 type
type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin BirthDay.Year := 2008; BirthDay.Month := 8; BirthDay.Day := 8;｛varDate = record Year: Integer; Month: Byte; Day: B
2010-12-21 16:59:00
440
原创 Showmessage_Pointer
var i: string; p: Pinteger; begin i :='fans'; p := @i; showmessage(inttostr(integer(p))); showmessage(string((p)^)); end;
2010-12-16 11:26:00
484
1
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人