易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi启动服务停止服务新建服务的方法

 
unit Servicescontrol;
   
interface  
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
   
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName:   String):String;
function CreateServices(Const SvrName,FilePath:String):Boolean;  
function DeleteServices(Const SvrName: String):Boolean;  
   
implementation  
   
//开启服务  
function StartServices(Const   SvrName:   String):   Boolean;
var  
      a,b:SC_HANDLE;  
        c:PChar;  
begin  
        Result:=False;  
   
        a:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);  
   
        if a <=0 then Exit;  
   
        b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);  
   
        if b <=0 then Exit;  
            try  
              Result:=StartService(b,0,c);  
              CloseServiceHandle(b);  
              CloseServiceHandle(a);  
        except  
              CloseServiceHandle(b);  
    


相关文档:

Delphi 设计模式:《HeadFirst设计模式》Delphi7代码

1. 命令的接受者
unit uReceiveObject;
interface
type
TLight = class(TObject)
public
procedure Open;
procedure Off;
end;
TGarageDoor = class(TObject)
public
procedure Up;
procedure Down;
procedure Stop;
procedure LightOn;
procedure LightOff;
end; ......

Delphi源码免杀定位MAP的方法

 Delphi的源码定位方法网上搜索到好像不太多。
这里分享我自己的两个方法。
引用一段话
 引用内容
什么是 MAP 文件?
MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方、任何时候使用,不需要有额外的程序进行支持。而且,这是唯一能找出程序崩溃的地方的救星。
DEL ......

用PLSQL自动生成数据库表的Delphi对象

 DECLARE
  TYPE TY_QUECUR IS REF CURSOR;
  CUR_COLUMNS  TY_QUECUR;
  SQLCMD  VARCHAR(500);
  TABNAME VARCHAR(20);
  COLNAME VARCHAR(50);
  COLTYPE VARCHAR(20);
  COLCOMMENT VARCHAR2(50);
  COLLENGTH INTEGER;
  COLPRECISION INTEGER; ......

Delphi Shl与Shr 移位操作介绍

 格式:操作数 Shl/Shr 移动位数
说明:操作数与返回值都是整数
例子:16(10) = 10000(2)
     16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)
     16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)
说明:一个整数(I)按位左移一位,相当于把它乘以2,即 I * 2
&n ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号