運用Delphi編寫Windows NT中服務程式 |
|
|
|
jackkcg
站務副站長  發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
此為轉貼資料 運用Delphi編寫Windows NT中服務程式
---- Windows NT服務程式不同於一般的運行程式，它不需要NT登錄進去，只需要開機進入NT系統便可以運行，一般用於系統服務方面的應用，學會編寫NT服務程式對網路管理人員而言是非常重要的，Delphi4.0作?一種高效、快速、強大的開發語言，?開發NT服務程式提供了非常便捷的方法，加上其視覺化介面以及與資料庫的完美結合，使我們開發與資料庫有關的NT服務程式變得非常簡單，下面以編寫一個NT定期備份程式?例，介紹如何運用Delphi編寫Windows NT的服務程式。 ---- 打開Delphi編輯器，選擇功能表中的File|New，在New Item中選擇Service Application項，Delphi便自動?你建立一個基於TServiceApplication的新工程，TserviceApplication是一個封裝NT服務程式的類，它包含一個Tservice1物件以及服務程式的裝卸、註冊、取消方法。 ---- 將Tservice1物件的屬性做下列更改： DisplayName與Name改?：DataBackup，
ServiceStartName屬性改?系統管理員
用戶(如DOMAIN\Administrator)和Password則輸入用戶密碼 ---- 這樣，服務程式運行時將自己以該用戶的許可權操作NT。 ---- 這樣，一個NT服務程式編寫已經完成，在Delphi編輯器中選擇功能表Run|Parameters，在Parameters中輸入/install，程式編譯運行後，一個名?DataBackup的NT服務程式已經安裝好，你可以雙擊控制面板中的服務專案，將會看到此服務程式，只是此服務程式沒有任何東西而已；在Delphi編輯器中選擇功能表Run|Parameters，在Parameters中輸入/uninstall，程式編譯運行後，系統將會將此服務程式卸掉。 ---- 服務程式是通過控制一個線程的生成、暫停、繼續、停止來達到服務目的的，因此我們必須加入一個Tsession物件來編寫文件自動備份代碼，在Delphi編輯器中選擇功能表中的File|New，在New Item中選擇Thread Object項，Delphi會提示你?該Tsession物件輸入一個名稱(輸入DataCopy),Delphi便生成了一個基於Tsession的DataCopy物件，並提供了一個Execute過程供重載，我們要Execute過程中輸入以下程式： var
Hour, Min, Sec, MSec: Word;
TimeStamp,DirectoryEdit1,DirectoryEdit2:String;
SearchRec: TSearchRec;
Source,Temp,Dest:Pchar;
F,F1:THandle;
FF,FF1:WIN32_FIND_DATA;
Begin
{每次文件備份執行時間}
TimeStamp:='12:00';
{文件備份原始目錄}
DirectoryEdit1:='C:\temp';
{文件備份目錄}
DirectoryEdit2:='C:\temp1';
while True do
begin
DecodeTime(Time,Hour, Min, Sec, MSec);
IF Trim(TimeStamp)=Format
('%-2.2d:%-2.2d',[Hour,Min]) then
begin
GetMem(Source,250);
GetMem(Dest,250);
GetMem(Temp,250); StrPcopy(Dest,DirectoryEdit2 '' FormatDateTime('YYYYMMDD',Date));
CreateDirectory(Dest,nil);
IFFindFirst(DirectoryEdit1 '\*.*',faAnyFile,
SearchRec)=0 then
begin
repeat
StrPcopy(Source,DirectoryEdit1 '\' SearchRec.Name); StrPcopy(Dest,DirectoryEdit2 '\'
FormatDateTime('YYYYMMDD',Date) '\' SearchRec.Name);
copyfile(Source,Dest,False);
until FindNext(SearchRec)< >0;
end;
SysUtils.FindClose(SearchRec);
FindClose(F);
FreeMem(Source,250);
FreeMem(Dest,250);
FreeMem(Temp,250);
end;
sleep(60000);
end; end; ---- 此線程執行時每隔一分鐘將檢查一次時間，看是否到了備份時間，如果是則將DirectoryEdit1中的所有文件拷到DirectoryEdit2目錄中去。
---- 現在編寫服務控制DataCopy線程的代碼，在TdataBackup物件中的OnStart、OnStop、OnPause、OnContinue事件中分別輸入如下代碼： procedure TDataBackup.DataBackupStart
(Sender: TService;
var Started: Boolean);
begin
DataThread:= TDataCopy.Create(False);
Started := True;
end; procedure TDataBackup.DataBackupStop
(Sender: TService;
var Stopped: Boolean);
begin
DataThread.Terminate;
Stopped := True;
end; procedure TDataBackup.DataBackupPause
(Sender: TService;
var Paused: Boolean);
begin
DataThread.Suspend;
Paused := True;
end; procedure TDataBackup.DataBackupContinue
(Sender: TService;
var Continued: Boolean);
begin
DataThread.Resume;
Continued := True;
end; ---- 這樣一個文件自動備份程式已經完成，編譯好後，加上/install參數執行程式，系統會將此服務程式安裝，由於服務程式中StartType屬性?stAuto，NT每次?動時，此程式自動執行，你可以在控制面板中的服務專案來?動、暫停、恢復、停止它，也可以加上/uninstall參數執行程式來卸掉它。通過上述例子我們可以看到，用Delphi編寫NT伺服器程式十分方便，而且你也可以在Tservice物件上加許多非視覺化控制項來與資料庫關聯，實現很多複雜的功能。
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
|
magiclin
一般會員   發表：2 回覆：4 積分：1 註冊：2003-02-14 發送簡訊給我 |
|
|
jackkcg
站務副站長 發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
service主要是開機時自動執行 並與系統結合 不讓一般人中斷程式 粉多 網路都使用的到 不過不知道你所說的是那一部份網芳的狀況使用 驅動程式寫法也是一種方式 病毒,蠕蟲 也可以喔 庵不會不過你可以問問
hagar,ccchen ddy 等各版主 *********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
|
kenny236
一般會員 發表：5 回覆：6 積分：2 註冊：2005-04-01 發送簡訊給我 |
發表時間：2002-10-26 12:53:22
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-17 17:08:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |