转帖：DELPHI编写服务程序总结二－－编写技巧
原文地址：http://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html
一、如何限制系统服务和桌面程序只运行一个
如何限制系统服务和桌面程序只运行一个
在工程加入下列代码可以设置系统服务和桌面程序只运行一个。
program FleetReportSvr;
uses
SvcMgr,
Forms,
SysUtils,
Windows,
SvrMain in 'SvrMain.pas' {FleetReportService: TService},
AppMain in 'AppMain.pas' {FmFleetReport}；
{$R *.RES}
const
CSMutexName = 'Global\Services_Application_Mutex';
var
OneInstanceMutex: THandle;
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
OneInstanceMutex := CreateMutex(@SecMem, False, CSMutexName);
if (GetLastError = ERROR_ALREADY_EXISTS)then
begin
DlgError('Error, Program or service already running!');
Exit;
end;
if FindCmdLineSwitch('svc', True) or
FindCmdLineSwitch('install', True) or
FindCmdLineSwitch('uninstall', True) then
begin
SvcMgr.A
相关问答：
在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?
以下是我在网上找的一段程序代码
===================================================================== ......
如何使新增的sheet在前一个sheet后，excel默认有3个sheet,如我新增一个sheet4,怎样使它是插在sheet3后呢，而不是插在sheet1前？
右键不行吗？
Worksheets.Add 方法
该方法用于新建工作表。
Function Ad ......
要求很简单，懂DELPHI+MSSQL就可以。。
没经验要求。。工资2K~2.5K，不包吃住，
在外的人慎重考虑，可买社保，
如果想找踏脚板的请一边去，
可以承诺如果能干事，公司业绩不错的时候工资方面一定会有提升，
我� ......
delphi代码变成bcb后太闪,都是在 FormPaint 方法中
delphi代码:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//利� ......
