bcoder

Delphi程序实现单实例运行

分类：Delphi, System 阅读 (3,392) No Responses »

7月 092014

　　对于一些非多文档类的程序，我们只想让用户打开一个程序的实例，当用户再次点击图标的时候只需将原来运行的程序界面打开即可。那么如何实现这种功能呢？首先，要实现进程的单实例运行，我们可以用互斥对象实现，互斥对象即在系统层上只能创建一个这样标识的对象，当第二个此标识的互斥对象创建时将会返回一个已存在的标志。

　　单实例运行实现后，我们还要通过消息实现打开前面已经打开的窗口，我们可以用EnumWindows函数来遍例所有窗口以找到已打开窗口的句柄，并通过ShowWindow函数或者自定义消息来激活那个窗口。具体的代码如下：

program SingleProc;

uses
  Forms,
  TlHelp32,
  Windows,
  SysUtils,
  uFmSingleProc in 'uFmSingleProc.pas' {FmSingleProc};

{$R *.res}

var
  HMutex: Hwnd;
  Ret: Integer;
  I: integer;

// 根据进程ID获取进程名称
function GetProcessNameById(const AID: Integer): String;
var
  h:thandle;
  f:boolean;
  lppe:tprocessentry32;
begin
  Result := '';
  h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);
  lppe.dwSize := sizeof(lppe);
  f := Process32First(h, lppe);
  while integer(f) <> 0 do
  begin
    if Integer(lppe.th32ProcessID) = AID then
    begin
      Result:= StrPas(lppe.szExeFile);
      break;
    end;
    f := Process32Next(h, lppe);
  end;
end;

function EnumWindowsOpen1stApp(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;
var
  WindowText   : string  ;       // 窗体标题
  procId: Cardinal;
  wText: array[0..255] of char;
begin
  // 获取进程ID
  GetWindowThreadProcessId(HWND, procId);

  if GetProcessNameById(procId) = ExtractFileName(Application.ExeName) then begin
    GetWindowText(HWND, @wText, 255);
    if wText = 'Form Title' then begin
      //ShowWindow有的时候会导致其他的问题，如果ShowWindow有问题可以用下面的发送消息的方法解决
      //ShowWindow(hwnd, SW_SHOW);

      //通过发送消息方式来激活前面的窗口
      SendMessage(hwnd, WM_SHOWTHEFORM, 0, 0);
    end;
  end;
  Result := True;
end;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  hMutex := CreateMutex(nil, False, PChar('SingleProcTest'));
  Ret := GetLastError ;
  if Ret <> ERROR_ALREADY_EXISTS Then
  begin
    Application.CreateForm(TFmSingleProc, FmSingleProc);
  end else begin
    // 互斥对象已存在，则遍历查找已打开的程序
    EnumWindows(@EnumWindowsOpen1stApp, 0);
    ReleaseMutex(hMutex);
  end;
  Application.Run;
end.

program SingleProc;

uses

Forms,

TlHelp32,

Windows,

SysUtils,

uFmSingleProc in 'uFmSingleProc.pas' {FmSingleProc};

{$R *.res}

var

HMutex: Hwnd;

Ret: Integer;

I: integer;

// 根据进程ID获取进程名称

function GetProcessNameById(const AID: Integer): String;

var

h:thandle;

f:boolean;

lppe:tprocessentry32;

begin

Result := '';

h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);

lppe.dwSize := sizeof(lppe);

f := Process32First(h, lppe);

while integer(f) <> 0 do

begin

if Integer(lppe.th32ProcessID) = AID then

begin

Result:= StrPas(lppe.szExeFile);

break;

end;

f := Process32Next(h, lppe);

end;

function EnumWindowsOpen1stApp(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;

var

WindowText : string ; // 窗体标题

procId: Cardinal;

wText: array[0..255] of char;

begin

// 获取进程ID

GetWindowThreadProcessId(HWND, procId);

if GetProcessNameById(procId) = ExtractFileName(Application.ExeName) then begin

GetWindowText(HWND, @wText, 255);

if wText = 'Form Title' then begin

//ShowWindow有的时候会导致其他的问题，如果ShowWindow有问题可以用下面的发送消息的方法解决

//ShowWindow(hwnd, SW_SHOW);

//通过发送消息方式来激活前面的窗口

SendMessage(hwnd, WM_SHOWTHEFORM, 0, 0);

end;

Result := True;

end;

begin

Application.Initialize;

Application.MainFormOnTaskbar := True;

hMutex := CreateMutex(nil, False, PChar('SingleProcTest'));

Ret := GetLastError ;

if Ret <> ERROR_ALREADY_EXISTS Then

begin

Application.CreateForm(TFmSingleProc, FmSingleProc);

end else begin

// 互斥对象已存在，则遍历查找已打开的程序

EnumWindows(@EnumWindowsOpen1stApp, 0);

ReleaseMutex(hMutex);

end;

Application.Run;

end.

unit uFmSingleProc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  WM_SHOWTHEFORM = WM_USER + 1;

type
  TFmSingleProc = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    // 如果通过ShowWindow函数显示窗口，则不用此消息
    procedure WMShowTheForm(Var msg: TMessage); message WM_SHOWTHEFORM;
  end;

var
  FmSingleProc: TFmSingleProc;

implementation

{$R *.dfm}

{ TFmSingleProc }

procedure TFmSingleProc.FormCreate(Sender: TObject);
begin
  Self.Caption := 'Form Title';
end;

procedure TFmSingleProc.WMShowTheForm(var msg: TMessage);
begin
  Self.WindowState := wsNormal ;
  Self.Show;
  Self.BringToFront ;
end;

end.

unit uFmSingleProc;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

const

WM_SHOWTHEFORM = WM_USER + 1;

type

TFmSingleProc = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

// 如果通过ShowWindow函数显示窗口，则不用此消息

procedure WMShowTheForm(Var msg: TMessage); message WM_SHOWTHEFORM;

end;

var

FmSingleProc: TFmSingleProc;

implementation

{$R *.dfm}

{ TFmSingleProc }

procedure TFmSingleProc.FormCreate(Sender: TObject);

begin

Self.Caption := 'Form Title';

end;

procedure TFmSingleProc.WMShowTheForm(var msg: TMessage);

begin

Self.WindowState := wsNormal ;

Self.Show;

Self.BringToFront ;

end;

end.

TAdoQuery读取Numeric类型字段负数为正的解决办法

分类：Database, Delphi 阅读 (3,011) No Responses »

6月 272014

在Delphi7中，使用TAdoQuery读取sybase中的数据，发现在读取numeric字段时，本来存储的是负数值，但tadoquery读出后为正数。

select workdays from workinfo

后来gg了一下，发现这是delphi的一个bug，用Delphi 2010写了一小工具，发现读取不会出现负数为正的情况，说明在后来的delphi版本中修正了此错误。跟踪代码时发现在adodb.pas中的GetFieldData函数中的子函数VarToBuffer中，delphi 2010和delphi 7有所区别，具体代码片断如下：

ftAutoInc, ftInteger:
Integer(Buffer^) := lVal;

将adodb.pas文件拷贝到工程目录下，并将delphi 2010中的此行代码拷贝到这个文件中，发现问题确实解决了，但是修改delphi的源文件还是容易为以后的开发带来隐患，所以还需要其他的办法来解决此问题。

既然是读取numeric字段会报错，那么我们可以想办法把这个字段动态的改变为其他的类型，在sql语句中通过一些数学运算即可改变，最简单的就是跟这个字段除以1（乘以1不会改变），所以最简单的解决办法就是如下更改sql语句：

select workdays / 1 as workdays from workinfo

这样就轻松解决了问题，如果大家遇到类似的问题也可以考虑这种办法来解决问题。

Windows Server 2008创建FTP站点

分类：Operating System, Windows 阅读 (2,631) No Responses »

6月 192014

1. 点击“开始-》控制面板-》管理员工具”，打开Internet 信息服务(IIS)管理器

2. 在左侧的树形列表中的“网站”上右键，选择“添加FTP站点”

3. 输入要添加的FTP站点的名字，并选择FTP站点所在的物理路径，点击“下一步”继续

4. 勾选自动启动FTP服务器，系统启动时会自动运行FTP服务器。SSL的选项根据自己需要进行选择，建议选择“允许”使用SSL

5. 身份验证选择“基本”，授权可以选择给所有用户授权，或者授权给指定用户，这里没有特殊的需求，选择的是“所有用户”，这里最好不要选择“未选定”。权限根据自己的需要设置。

使用Delphi创建Windows服务程序

分类：Delphi, System 阅读 (5,756) No Responses »

6月 092014

Windows服务作为Windows提供的一种特殊应用程序，拥有下面优点：

1. 随系统启动而启动，不需要用户手动执行，适合做后台检测程序等
2. 不用登录系统即可运行
3. 在后台运行，不与Windows桌面相互影响
4. 拥有System权限，在任务管理器中无法结束运行

Windows不建议在服务程序中与桌面有交互，在Windows Xp及以前的版本Windows服务和用户桌面还运行在一个session下，所以服务程序还可以比较轻松的与桌面进行交互。但是自Windows Vista及以后的系统中，服务程序是运行于session0中，而第一个启动的用户则运行于session1中，要想在服务中显示桌面或者与桌面程序交互要使用很复杂的技术，甚至用CreateProcess和ShellExecute启动的应用程序都无法在用户桌面中显示。

一、在Delphi中创建Windows服务程序

Delphi中提供了创建Windows服务的程序框架，生成Windows服务工程的具体方法如下，点击菜单File->New->Other，在里面寻找Service Application项目，点击OK按钮生成即可。这里会生成一个带界面的TService1类。选中TService1界面，下面介绍一下TService的相关属性和事件。

TService属性：

AllowPause: 是否允许暂停
AllowStop: 是否允许停止
Dependencies: 设置该服务与其他服务的依赖关系
DisplayName: 在Windows服务管理器中显示的名称（注意：不是服务名）
Name: 服务名称，使用/install参数安装时安装的服务名为此属性值
Interactive: 是否要与桌面进行交互
StartType: 服务的启动方式
ServiceStartName: 设定用于启动服务的用户名

TService事件：

1. procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
在该服务启动的时候调用OnStart事件，参数Started的默认为True，所以不用在该事件中再设置Started := True;　在此事件中如果判断某些条件不允许服务运行，则可以将Started置为False，这样服务将会不再启动。
2. procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
在该服务被停止的时候调用OnStop事件，Stopped的默认为True，在此事件中如果判断某些条件不允许服务停止则可将Stopped置为False来防止服务被停止。
3. procedure TService1.ServiceExecute(Sender: TService);
服务的主体执行部分，需要将服务的主要功能实现代码放在此事件中，此过程执行完毕后服务将会自动停止，所以一般在此事件中要写类似如下代码：

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
     Sleep(10);
     ServiceThread.ProcessRequests(False);
  end;
end;

procedure TService1.ServiceExecute(Sender: TService);

begin

while not Terminated do

begin

Sleep(10);

ServiceThread.ProcessRequests(False);

end;

4.procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
在服务被暂停时调用的事件，Paused的含义类似ServiceStart事件中的Started.
5. procedure TService1.ServiceContinue(Sender: TService; var Continued: Boolean);
服务被暂停后重新启动继续执行时调用的事件，Continued的含义类似ServiceStart事件中的Started

经过简单的点击后，一个最基本的Windows服务程序已经编写完成了，编译工程，将会生成一个exe程序，本例中生成一个ServiceTest.exe。
打开命令行窗口，将目录定位到工程的输出目录，输入ServiceTest.exe /install并执行，刚才编写的服务就安装到系统中了。
卸载服务时使用ServiceTest.exe /unstall
可以在命令行后面加/silent参数，使其不弹出安装、卸载成功的提示框。
注意：使用/install这种方式安装时，服务的名字是服务窗口的类名，不是DisplayName，服务管理器中显示的是DisplayName
也可使用Windows自带的sc命令来创建或者删除服务，创建的示例代码如下：

sc create "ServiceName" binpath= "C:UsersAdministratorDesktopServiceTestServiceTest.exe"
sc delete ServiceName

1 2	sc create "ServiceName" binpath= "C:UsersAdministratorDesktopServiceTestServiceTest.exe" sc delete ServiceName

二、一些很有用的管理服务的函数

unit ServiceMgr;

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;
  function IsServiceExisted(Const SvrName: String):Boolean;

implementation

//开启服务
function StartServices(Const SvrName: String): Boolean;
var
  sMgr, sHandle:SC_HANDLE;
  c:PChar;
begin
  Result:=False;

  sMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if sMgr <=0 then Exit;

  sHandle := OpenService(sMgr, PChar(SvrName), SERVICE_ALL_ACCESS);
  if sHandle <=0 then Exit;

  try
    Result:=StartService(sHandle, 0, c);
    CloseServiceHandle(sHandle);
    CloseServiceHandle(sMgr);
  except
    CloseServiceHandle(sHandle);
    CloseServiceHandle(sMgr);
  end;
end;

//停止服务
function StopServices(Const SvrName: String): Boolean;
var
  sMgr, sHandle: SC_HANDLE;
  d: TServiceStatus;
begin
  Result := False;

  sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if sMgr <=0 then Exit;
  sHandle := OpenService(sMgr,PChar(SvrName),SERVICE_ALL_ACCESS);
  if sHandle <=0 then Exit;
  try
    Result:=ControlService(sHandle, SERVICE_CONTROL_STOP,d);
    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);
  except
    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);
  end;
end;

//查询当前服务的状态
function  QueryServiceStatu(Const SvrName: String): String;
var
  sMgr, sHandle: SC_HANDLE;
  d: TServiceStatus;
begin
  Result := '未安装';

  sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if sMgr <=0 then Exit;
  sHandle := OpenService(sMgr,PChar(SvrName),SERVICE_ALL_ACCESS);

  if sHandle <= 0 then Exit;
  try
    QueryServiceStatus(sHandle, d);
  if d.dwCurrentState  = SERVICE_RUNNING then
    Result := '启动'   //Run
  else if d.dwCurrentState   = SERVICE_RUNNING then
    Result := 'Wait'   //Runing
  else if d.dwCurrentState   = SERVICE_START_PENDING then
    Result := 'Wait'   //Pause
  else if d.dwCurrentState   = SERVICE_STOP_PENDING   then
    Result := '停止'   //Pause
  else if d.dwCurrentState   = SERVICE_PAUSED then
    Result := '暂停'   //Pause
  else if d.dwCurrentState   = SERVICE_STOPPED then
    Result := '停止'   //Stop
  else if d.dwCurrentState   = SERVICE_CONTINUE_PENDING   then
    Result := 'Wait'   //Pause
  else if d.dwCurrentState   = SERVICE_PAUSE_PENDING then
    Result := 'Wait';   //Pause

    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);
  except
    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);
  end;
end;

{建立服务}
function  CreateServices(Const SvrName,FilePath: String): Boolean;
var
  sMgr, sHandle:SC_HANDLE;
begin
  Result:=False;
  if FilePath = '' then Exit;

  sMgr := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);

  if sMgr <= 0 then Exit;
  try
    sHandle := CreateService(sMgr, PChar(SvrName),
    PChar(SvrName),
    SERVICE_ALL_ACCESS,
    SERVICE_INTERACTIVE_PROCESS or SERVICE_WIN32_OWN_PROCESS,
    SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,
    PChar(FilePath),nil,nil,nil,nil,nil);
    if sHandle <= 0 then begin
      ShowMessage( SysErrorMessage(GetlastError));
      Exit;
    end;
    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);

    Result := True;
  except
    CloseServiceHandle(sMgr);
    CloseServiceHandle(sHandle);
    Exit;
  end;
end;

{卸载服务}
function DeleteServices(Const SvrName: String): Boolean;
var
  sMgr, sHandle:SC_HANDLE;
begin
  Result:=False;
  sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if sMgr <= 0 then  Exit;
  sHandle :=OpenService(sMgr,PChar(SvrName),STANDARD_RIGHTS_REQUIRED);
  if sHandle <= 0 then Exit;
  try
    Result := DeleteService(sHandle);

    if not Result then
      ShowMessage(SysErrorMessage(GetlastError));
    CloseServiceHandle(sHandle);
    CloseServiceHandle(sMgr);
  except
    CloseServiceHandle(sHandle);
    CloseServiceHandle(sMgr);
    Exit;
  end;
end;

function IsServiceExisted(Const SvrName: String):Boolean;
var
  sMgr, sHandle:SC_HANDLE;
begin
  Result:=False;
  sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if sMgr <= 0 then  Exit;
  sHandle :=OpenService(sMgr, PChar(SvrName), STANDARD_RIGHTS_REQUIRED);
  if sHandle > 0 then
    Result := True;
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

unit ServiceMgr;

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;

function IsServiceExisted(Const SvrName: String):Boolean;

implementation

//开启服务

function StartServices(Const SvrName: String): Boolean;

var

sMgr, sHandle:SC_HANDLE;

c:PChar;

begin

Result:=False;

sMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

if sMgr <=0 then Exit;

sHandle := OpenService(sMgr, PChar(SvrName), SERVICE_ALL_ACCESS);

if sHandle <=0 then Exit;

try

Result:=StartService(sHandle, 0, c);

CloseServiceHandle(sHandle);

CloseServiceHandle(sMgr);

except

CloseServiceHandle(sHandle);

CloseServiceHandle(sMgr);

end;

//停止服务

function StopServices(Const SvrName: String): Boolean;

var

sMgr, sHandle: SC_HANDLE;

d: TServiceStatus;

begin

Result := False;

sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if sMgr <=0 then Exit;

sHandle := OpenService(sMgr,PChar(SvrName),SERVICE_ALL_ACCESS);

if sHandle <=0 then Exit;

try

Result:=ControlService(sHandle, SERVICE_CONTROL_STOP,d);

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

except

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

end;

//查询当前服务的状态

function QueryServiceStatu(Const SvrName: String): String;

var

sMgr, sHandle: SC_HANDLE;

d: TServiceStatus;

begin

Result := '未安装';

sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if sMgr <=0 then Exit;

sHandle := OpenService(sMgr,PChar(SvrName),SERVICE_ALL_ACCESS);

if sHandle <= 0 then Exit;

try

QueryServiceStatus(sHandle, d);

if d.dwCurrentState = SERVICE_RUNNING then

Result := '启动' //Run

else if d.dwCurrentState = SERVICE_RUNNING then

Result := 'Wait' //Runing

else if d.dwCurrentState = SERVICE_START_PENDING then

Result := 'Wait' //Pause

else if d.dwCurrentState = SERVICE_STOP_PENDING then

Result := '停止' //Pause

else if d.dwCurrentState = SERVICE_PAUSED then

Result := '暂停' //Pause

else if d.dwCurrentState = SERVICE_STOPPED then

Result := '停止' //Stop

else if d.dwCurrentState = SERVICE_CONTINUE_PENDING then

Result := 'Wait' //Pause

else if d.dwCurrentState = SERVICE_PAUSE_PENDING then

Result := 'Wait'; //Pause

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

except

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

end;

{建立服务}

function CreateServices(Const SvrName,FilePath: String): Boolean;

var

sMgr, sHandle:SC_HANDLE;

begin

Result:=False;

if FilePath = '' then Exit;

sMgr := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);

if sMgr <= 0 then Exit;

try

sHandle := CreateService(sMgr, PChar(SvrName),

PChar(SvrName),

SERVICE_ALL_ACCESS,

SERVICE_INTERACTIVE_PROCESS or SERVICE_WIN32_OWN_PROCESS,

SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,

PChar(FilePath),nil,nil,nil,nil,nil);

if sHandle <= 0 then begin

ShowMessage( SysErrorMessage(GetlastError));

Exit;

end;

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

Result := True;

except

CloseServiceHandle(sMgr);

CloseServiceHandle(sHandle);

Exit;

end;

{卸载服务}

function DeleteServices(Const SvrName: String): Boolean;

var

sMgr, sHandle:SC_HANDLE;

begin

Result:=False;

sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if sMgr <= 0 then Exit;

sHandle :=OpenService(sMgr,PChar(SvrName),STANDARD_RIGHTS_REQUIRED);

if sHandle <= 0 then Exit;

try

Result := DeleteService(sHandle);

if not Result then

ShowMessage(SysErrorMessage(GetlastError));

CloseServiceHandle(sHandle);

CloseServiceHandle(sMgr);

except

CloseServiceHandle(sHandle);

CloseServiceHandle(sMgr);

Exit;

end;

function IsServiceExisted(Const SvrName: String):Boolean;

var

sMgr, sHandle:SC_HANDLE;

begin

Result:=False;

sMgr := OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if sMgr <= 0 then Exit;

sHandle :=OpenService(sMgr, PChar(SvrName), STANDARD_RIGHTS_REQUIRED);

if sHandle > 0 then

Result := True;

end;

end.

调用方法：

{启动服务} StartServices(服务名);
{停止服务} StopServices(服务名);
{新建服务} CreateServices(服务名,exe文件路径);
{删除服务} DeleteServices(服务名);
{获取服务状态} string:=QueryServiceStatu(服务名);

注意这里的服务名是Service类的名称，不是DisplayName

三、Delphi中编写Windows服务的注意事项

1. 尽量避免使用ShowMessage等直接进行调试，容易造成服务无法响应等问题。
2. 停止服务时提示”Windows无法停止 xxx 服务（位于　本地计算机　上）” ，则可能是OnStop事件结束时将Stopped设置成了False或者OnExecute事件不能结束或者OnExecute与界面进行了不正确的交互。
3. Windows Vista及上版本的系统中不再支持服务中显示窗口，所以在这些版本的系统上，如果需要显示窗口，则要另外创建一个窗口程序，并与之用消息通讯以显示窗口。

四、一些有用的链接

Subverting Vista UAC in Both 32 and 64 bit Architectures
http://www.codeproject.com/Articles/35773/Subverting-Vista-UAC-in-Both-and-bit-Archite

如何在Windows Service里面运行程序
http://blog.sina.com.cn/s/blog_5f8817250100vooy.html

FormMouseWheel、FormMouseWheelDown、FormMouseWheelUp执行多次的问题

分类：Components, Delphi 阅读 (4,323) No Responses »

5月 142014

当我们需要响应鼠标滚轮效果的时候，我们需要在Form的FormMouseWheel、FormMouseWheelDown、FormMouseWheelUp事件中进行处理。如下面的代码：

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Edit1.Top := Edit1.Top + 10;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Edit1.Top := Edit1.Top - 10;
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;

MousePos: TPoint; var Handled: Boolean);

begin

Edit1.Top := Edit1.Top + 10;

end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;

MousePos: TPoint; var Handled: Boolean);

begin

Edit1.Top := Edit1.Top - 10;

end;

但是在实际运行中我们发现，每次滚轮后Edit1的顶部位置往上或下移动了两次，这是因为TControl的DoMouseWheel调用了该事件，如果该事件中Handled返回值为true，则DoMouseWheel将认为该事件处理完毕，不在执行后边的代码，如果返回false则继续执行后面的代码。

所以如果要避免这几个事件执行多次，在执行完你要执行的操作后，返回Handled := True;即可。如下：

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Edit1.Top := Edit1.Top - 10;
  Handled := True;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;

MousePos: TPoint; var Handled: Boolean);

begin

Edit1.Top := Edit1.Top - 10;

Handled := True;

end;

DoMouseWheel的代码如下：

function TControl.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
  MousePos: TPoint): Boolean;
var
  IsNeg: Boolean;
begin
  Result := False;
  if Assigned(FOnMouseWheel) then
    FOnMouseWheel(Self, Shift, WheelDelta, MousePos, Result);
  if not Result then
  begin
    Inc(FWheelAccumulator, WheelDelta);
    while Abs(FWheelAccumulator) >= WHEEL_DELTA do
    begin
      IsNeg := FWheelAccumulator < 0;
      FWheelAccumulator := Abs(FWheelAccumulator) - WHEEL_DELTA;
      if IsNeg then
      begin
        if FWheelAccumulator <> 0 then FWheelAccumulator := -FWheelAccumulator;
        Result := DoMouseWheelDown(Shift, MousePos);
      end
      else
        Result := DoMouseWheelUp(Shift, MousePos);
    end;
  end;
end;

function TControl.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;

MousePos: TPoint): Boolean;

var

IsNeg: Boolean;

begin

Result := False;

if Assigned(FOnMouseWheel) then

FOnMouseWheel(Self, Shift, WheelDelta, MousePos, Result);

if not Result then

begin

Inc(FWheelAccumulator, WheelDelta);

while Abs(FWheelAccumulator) >= WHEEL_DELTA do

begin

IsNeg := FWheelAccumulator < 0;

FWheelAccumulator := Abs(FWheelAccumulator) - WHEEL_DELTA;

if IsNeg then

begin

if FWheelAccumulator <> 0 then FWheelAccumulator := -FWheelAccumulator;

Result := DoMouseWheelDown(Shift, MousePos);

end

else

Result := DoMouseWheelUp(Shift, MousePos);

end;

Android Studio中如何调试应用

分类：Android, Java 阅读 (1,633) No Responses »

3月 302014

先在要调试的代码前边的灰色条上点一下，当代码这行变成红色背景时说明断点已经打上了
然后在上面的工具栏中点击绿三角右边的那个带刺的e按钮，这个按钮是以调试模式运行应用
这样就可以了，当代码运行到你设置的断点的时候，就会暂停，这时你就可以开始调试你的代码了

调试app

Java使用命令行编译运行程序

分类：Java, Java语言阅读 (888) No Responses »

3月 192014

一、摘要

　　使用javac命令来编译java文件生成.class文件

　　使用java命令+类名来运行编译好的class文件

二、编译不含包名的程序

　　假设HelloJava.java代码文件如下

public class HelloJava {
	public HelloJava() {
		System.out.print("Hello Java！");
	}
	
	public static void main(String args[]) {
		HelloJava hellojava = new HelloJava();
	}
}

public class HelloJava {

public HelloJava() {

System.out.print("Hello Java！");

}

public static void main(String args[]) {

HelloJava hellojava = new HelloJava();

}

　　在命令行工具中，cd到HelloJava.java文件所在的目录

　　运行如下命令：

javac ./HelloJava.java

1	javac ./HelloJava.java

　　运行完毕后，在目录中会出现HelloJava.class文件

　　然后使用java命令运行这个类：

java HelloJava

1	java HelloJava

　　此处需要注意的是：

java后面的参数是类名，即不是.class文件名，java HelloJava.class这样是错误的
HelloJava大小写必须与类名一致

三、编译包含包名的程序

　　假在com/bcoder/目录下有HelloPackageJava.java文件，文件内容如下：

package com.bcoder;

public class HelloPackageJava {
	public HelloPackageJava() {
		System.out.print("Java in package!");
	}
	
	public static void main(String args[]) {
		HelloPackageJava pkgJava = new HelloPackageJava();
	}
}

package com.bcoder;

public class HelloPackageJava {

public HelloPackageJava() {

System.out.print("Java in package!");

}

public static void main(String args[]) {

HelloPackageJava pkgJava = new HelloPackageJava();

}

　　如需编译HelloPackageJava.java，则cd到com目录的上一层目录，然后执行如下命令：

javac .\com\bcoder\HelloPackageJava.java

1	javac .\com\bcoder\HelloPackageJava.java

　　编译完后使用如下命令运行

java com.bcoder.HelloPackageJava

1	java com.bcoder.HelloPackageJava

　　如果在HelloPackageJava.java目录下编译然后运行java HelloPackageJava会报“错误: 找不到或无法加载主类 HelloPackageJava”

Java的一些问题总结

分类：Java 阅读 (1,597) No Responses »

3月 162014

1. 整型数据类型中，需要内存空间最少的是（D）

A) short B) long C) int D) byte

关于这个问题，我认为byte应该是字节型，就不算整型，怎么能选D呢。

2. Java中的default关键字 default关键字是Java8 的新特性，其作用是使用此关键字可以在接口中给接口函数增加默认的实现内容，以方便接口增加新的接口函数后继承自该接口的类也可以编译通过。如下代码：

public interface MyInterfact{
    public void func1();
    default public void func2(){
        System.out.println("This is func2");
    }
}

public interface MyInterfact{

public void func1();

default public void func2(){

System.out.println("This is func2");

}

3. Java中的native关键字 native用于定义本地方法，即方法的定义是在java中定义，但是其实现是用非java语言实现的

4. Java中的多态性——重载，重载函数不能同时有完全相同的参数（即参数数量和参数数据类型都一致），参数的数量可以与原来的不同，返回值也可以与原来的不同。

5. 子类覆盖父类方法时（注意：是覆盖不是重载），方法的作用域不能低于父类方法的作用域，比如父类用public声明的，子类中就不可以用private或者default声明，另附几个作用域关键字对应的作用范围

	类内部	本包	子类	外部包
public	√	√	√	√
protected	√	√	√	×
default	√	√	×	×
private	√	×	×	×

6. 一个.java文件中，可以有多个类，但是只能有一个使用public定义的类

7. throw是在一个过程中抛出具体的某个异常（异常类的实例）；throws是定义在方法头的可能会抛出的异常，可以同时定义多个异常类。

8. 参与运算时，数据类型会从低精度的数据类型向高精度自动转换

int x = 4;
System.out.println("value is: " + (x>4?99:9));
//输出结果为：value is: 9

int x = 4;

System.out.println("value is: " + (x>4?99:9));

//输出结果为：value is: 9

改变一下：

int x = 4;
System.out.println("value is: " + (x>4?99.0:9));
//输出结果为value is: 9.0

int x = 4;

System.out.println("value is: " + (x>4?99.0:9));

//输出结果为value is: 9.0

9. Java中基本数据类型包括byte、int、char、long、float、double、boolean和short

引用数据类型包括:类,数组,接口等（简单来说就是除了基本数据类型之外的所有类型），所以String也是引用类型的

10. Java中抽象类可以有实现方法，但是抽象类不能实例化，所以也无法调用实现方法，其他抽象类的特点

a. 抽象方法 abstract void f(); 抽象方法不能包含有任何方法的BODY 。
b. 如果一个类包含1个或者多个抽象方法，则该类必须限定为抽象的。
需要在前面指定 abstract 关键字。
（1）抽象类不能被实例化
（2）包含抽象方法的类，必须标识 abstract
c. 如果从一个抽象类继承，必须对所有抽象方法进行覆盖 , 否则导出类也是抽象的
d. 也可以考虑创建没有任何抽象方法的抽象类。

11. 如果子类中没有显式调用父类的某个形式的构造函数，子类的构造函数会自动调用父类的无参数的构造函数，不管何种情况基类的无参构造函数肯定会被调用。

MySQL忘记密码的解决办法

分类：Database, MySQL 阅读 (2,927) No Responses »

2月 142014

Windows下重新设置root用户密码的办法

第一步：停止mysql服务

打开命令行窗口，输入net stop mysql回车，或者在Windows服务管理器中停止MySQL服务。

第二步：在命令行窗口中将目录切换到mysqlbin目录，比如cd c:program filesmysqlbin

第三步：输入mysqld –skip-grant-tables，执行此命令后，此命令行窗口将会停止响应

第四步：再打开一个命令行窗口，因为上一个窗口已经无法响应了，将目录切换到mysqlbin目录中，输入mysql回车，这时将会进入mysql控制台，输入下面的命令

>use mysql;
>update user set password=password(“123456″) where user=”root”;
>flush privileges;
>exit

这样密码就被设置为123456了，注销计算机，重新启动mysql服务，就可以使用这个密码登录了。

Linux下重新设置root密码的方法

如果 MySQL 正在运行，先杀掉这个进程： killall -TERM mysqld。
启动 MySQL ：bin/safe_mysqld –skip-grant-tables &
就可以不需要密码就进入 MySQL 了。
然后就是
>use mysql
>update user set password=password(“new_pass”) where user=”root”;
>flush privileges;
重新杀 MySQL ，用正常方法启动

Android中动态设置GridView的列数、列宽和行高

分类：Android, Java 阅读 (21,207) No Responses »

1月 062014

　　在使用GridView时我们知道，列数是可以通过设计时的属性来设置的，列的宽度则是根据列数和GridView的宽度计算出来的。但是有些时候我们想实现列数是动态改变的效果，即列的宽度保持某个值，列的数量是可变的，我们可通过获取屏幕宽度并除以项目宽度来处理。请看下面的代码：

	@Override
	protected void onCreate(Bundle savedInstanceState) {
		super.onCreate(savedInstanceState);
		setContentView(R.layout.activity_main);

		GridView lvnote = (GridView)findViewById(R.id.gridView1);
		// The item width is about 200，项目宽度大概200像素
		colnum =  (int) (((getResources().getDisplayMetrics().widthPixels  )) / 200 );
		lvnote.setNumColumns(colnum);

	}

@Override

protected void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.activity_main);

GridView lvnote = (GridView)findViewById(R.id.gridView1);

// The item width is about 200，项目宽度大概200像素

colnum = (int) (((getResources().getDisplayMetrics().widthPixels )) / 200 );

lvnote.setNumColumns(colnum);

}

　　但是由于不同的Android设备可能有不同的宽度，项目宽度乘以获得的列数所得到的总宽度并不能填充整个屏幕的宽度，而给用户带来不好的用户体验，甚至我们可能还需要使行高和列宽保持一定的比例，那么如何动态调整项目的宽度和高度呢？

　　我们此处是通过写一个自己的Adapter类，并改写其中的getView函数来实现的，getView是用来返回某个GridView项的部局的函数，我们在此处手动生成需要的view并设置此view的宽度和高度，最后将此view返回。

　　注：使用此方法时，项目中的内容可能也需要手动去填充，请再研究

　　相关文件及代码如下：

　　主窗体只有一个GridView，部局文件代码：

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:paddingBottom="@dimen/activity_vertical_margin"
    android:paddingLeft="@dimen/activity_horizontal_margin"
    android:paddingRight="@dimen/activity_horizontal_margin"
    android:paddingTop="@dimen/activity_vertical_margin"
    tools:context=".MainActivity" >

    <GridView
        android:id="@+id/gridView1"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentBottom="true"
        android:layout_alignParentLeft="true"
        android:layout_alignParentRight="true"
        android:layout_alignParentTop="true"
        android:gravity="center_horizontal"
        android:numColumns="3" >

    </GridView>

</RelativeLayout>

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"

xmlns:tools="http://schemas.android.com/tools"

android:layout_width="match_parent"

android:layout_height="match_parent"

android:paddingBottom="@dimen/activity_vertical_margin"

android:paddingLeft="@dimen/activity_horizontal_margin"

android:paddingRight="@dimen/activity_horizontal_margin"

android:paddingTop="@dimen/activity_vertical_margin"

tools:context=".MainActivity" >

<GridView

android:id="@+id/gridView1"

android:layout_width="match_parent"

android:layout_height="wrap_content"

android:layout_alignParentBottom="true"

android:layout_alignParentLeft="true"

android:layout_alignParentRight="true"

android:layout_alignParentTop="true"

android:gravity="center_horizontal"

android:numColumns="3" >

</GridView>

</RelativeLayout>

　　GridView项所使用的部局文件只有一个TextView，命名为note_item，代码如下：

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:orientation="vertical" >

    <TextView
        android:id="@+id/tvNote"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:text="TextView" />

</LinearLayout>

<?xml version="1.0" encoding="utf-8"?>

<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"

android:layout_width="match_parent"

android:layout_height="match_parent"

android:orientation="vertical" >

<TextView

android:id="@+id/tvNote"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

android:text="TextView" />

</LinearLayout>

　　Activity类的实现代码如下：

package com.example.apptest;

import java.util.ArrayList;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.regex.Matcher;
import java.util.regex.Pattern;

import android.os.Bundle;
import android.app.Activity;
import android.content.Context;
import android.content.Intent;
import android.database.Cursor;
import android.view.LayoutInflater;
import android.view.Menu;
import android.view.View;
import android.view.ViewGroup;
import android.widget.AbsListView;
import android.widget.AdapterView;
import android.widget.GridView;
import android.widget.SimpleAdapter;
import android.widget.TextView;
import android.widget.AdapterView.OnItemClickListener;

public class MainActivity extends Activity {
	GridView lvnote;
	ArrayList<HashMap<String, String>> mynotelist = new ArrayList<HashMap<String,String>>();
	int colnum = 1;

	@Override
	protected void onCreate(Bundle savedInstanceState) {
		super.onCreate(savedInstanceState);
		setContentView(R.layout.activity_main);

		lvnote = (GridView)findViewById(R.id.gridView1);
		// The item width is about 200，项目宽度大概200像素
		colnum =  (int) (((getResources().getDisplayMetrics().widthPixels  )) / 200 );
		lvnote.setNumColumns(colnum);

		HashMap<String, String> mapitem1 = new HashMap<String, String>();
		mapitem1.put("note", "Hello1...");
		mapitem1.put("noteid", "1");
		mynotelist.add(mapitem1);

		HashMap<String, String> mapitem2 = new HashMap<String, String>();
		mapitem2.put("note", "Hello2...");
		mapitem2.put("noteid", "2");
		mynotelist.add(mapitem2);

		HashMap<String, String> mapitem3 = new HashMap<String, String>();
		mapitem3.put("note", "Hello3...");
		mapitem3.put("noteid", "3");
		mynotelist.add(mapitem3);

		HashMap<String, String> mapitem4 = new HashMap<String, String>();
		mapitem4.put("note", "Hello4...");
		mapitem4.put("noteid", "4");
		mynotelist.add(mapitem4);

		HashMap<String, String> mapitem5 = new HashMap<String, String>();
		mapitem5.put("note", "Hello5...");
		mapitem5.put("noteid", "5");
		mynotelist.add(mapitem5);

		HashMap<String, String> mapitem6 = new HashMap<String, String>();
		mapitem6.put("note", "Hello6...");
		mapitem6.put("noteid", "6");
		mynotelist.add(mapitem6);

		NoteAdapter adapter = new NoteAdapter(this, mynotelist, R.layout.note_item,
				new String[]{"note"},
				new int[]{R.id.tvNote});

		lvnote.setAdapter(adapter);
	}

	public class NoteAdapter extends SimpleAdapter{
		Context context = null;

		@Override
		public View getView(int position, View convertView, ViewGroup parent) {
			// TODO Auto-generated method stub
			// Inflate the note_item layout manually, and treat it as the item view
			// 重新填充note_item部局，并把它作为项的view返回
			convertView = LayoutInflater.from(context).inflate(R.layout.note_item, null);
			HashMap<String, String> theMap = (HashMap<String, String>)getItem(position);
			TextView txtNote = (TextView)convertView.findViewById(R.id.tvNote);
			txtNote.setText(theMap.get("note").toString());

			// Calculate the item width by the column number to let total width fill the screen width
			// 根据列数计算项目宽度，以使总宽度尽量填充屏幕
			int itemWidth = (int)(getResources().getDisplayMetrics().widthPixels -  colnum * 10)  / colnum;
			// Calculate the height by your scale rate, I just use itemWidth here
			// 下面根据比例计算您的item的高度，此处只是使用itemWidth
			int itemHeight = itemWidth;

		    AbsListView.LayoutParams param = new AbsListView.LayoutParams(
		    		itemWidth,
		    		itemHeight);
		    convertView.setLayoutParams(param);

		    return convertView;
		}

		public NoteAdapter(Context context,
				List<? extends Map<String, ?>> data, int resource,
				String[] from, int[] to) {
			super(context, data, resource, from, to);
			this.context = context;
		}

	}

}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

package com.example.apptest;

import java.util.ArrayList;

import java.util.HashMap;

import java.util.List;

import java.util.Map;

import java.util.regex.Matcher;

import java.util.regex.Pattern;

import android.os.Bundle;

import android.app.Activity;

import android.content.Context;

import android.content.Intent;

import android.database.Cursor;

import android.view.LayoutInflater;

import android.view.Menu;

import android.view.View;

import android.view.ViewGroup;

import android.widget.AbsListView;

import android.widget.AdapterView;

import android.widget.GridView;

import android.widget.SimpleAdapter;

import android.widget.TextView;

import android.widget.AdapterView.OnItemClickListener;

public class MainActivity extends Activity {

GridView lvnote;

ArrayList<HashMap<String, String>> mynotelist = new ArrayList<HashMap<String,String>>();

int colnum = 1;

@Override

protected void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.activity_main);

lvnote = (GridView)findViewById(R.id.gridView1);

// The item width is about 200，项目宽度大概200像素

colnum = (int) (((getResources().getDisplayMetrics().widthPixels )) / 200 );

lvnote.setNumColumns(colnum);

HashMap<String, String> mapitem1 = new HashMap<String, String>();

mapitem1.put("note", "Hello1...");

mapitem1.put("noteid", "1");

mynotelist.add(mapitem1);

HashMap<String, String> mapitem2 = new HashMap<String, String>();

mapitem2.put("note", "Hello2...");

mapitem2.put("noteid", "2");

mynotelist.add(mapitem2);

HashMap<String, String> mapitem3 = new HashMap<String, String>();

mapitem3.put("note", "Hello3...");

mapitem3.put("noteid", "3");

mynotelist.add(mapitem3);

HashMap<String, String> mapitem4 = new HashMap<String, String>();

mapitem4.put("note", "Hello4...");

mapitem4.put("noteid", "4");

mynotelist.add(mapitem4);

HashMap<String, String> mapitem5 = new HashMap<String, String>();

mapitem5.put("note", "Hello5...");

mapitem5.put("noteid", "5");

mynotelist.add(mapitem5);

HashMap<String, String> mapitem6 = new HashMap<String, String>();

mapitem6.put("note", "Hello6...");

mapitem6.put("noteid", "6");

mynotelist.add(mapitem6);

NoteAdapter adapter = new NoteAdapter(this, mynotelist, R.layout.note_item,

new String[]{"note"},

new int[]{R.id.tvNote});

lvnote.setAdapter(adapter);

}

public class NoteAdapter extends SimpleAdapter{

Context context = null;

@Override

public View getView(int position, View convertView, ViewGroup parent) {

// TODO Auto-generated method stub

// Inflate the note_item layout manually, and treat it as the item view

// 重新填充note_item部局，并把它作为项的view返回

convertView = LayoutInflater.from(context).inflate(R.layout.note_item, null);

HashMap<String, String> theMap = (HashMap<String, String>)getItem(position);

TextView txtNote = (TextView)convertView.findViewById(R.id.tvNote);

txtNote.setText(theMap.get("note").toString());

// Calculate the item width by the column number to let total width fill the screen width

// 根据列数计算项目宽度，以使总宽度尽量填充屏幕

int itemWidth = (int)(getResources().getDisplayMetrics().widthPixels - colnum * 10) / colnum;

// Calculate the height by your scale rate, I just use itemWidth here

// 下面根据比例计算您的item的高度，此处只是使用itemWidth

int itemHeight = itemWidth;

AbsListView.LayoutParams param = new AbsListView.LayoutParams(

itemWidth,

itemHeight);

convertView.setLayoutParams(param);

return convertView;

}

public NoteAdapter(Context context,

List<? extends Map<String, ?>> data, int resource,

String[] from, int[] to) {

super(context, data, resource, from, to);

this.context = context;

}

Page 32 of 39 Newer Entries 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Older Entries