我想做个程序定时删除硬盘的文件（在线等待） ( 积分: 50 )

缘尽 · 2005-12-21

希望可以在计算机启动的时候自动加入进程，不是在启动中添加快捷方式 然后自动运行这个程序，条件是每个月的28号触发....着急啊

缘尽 · 2005-12-21

希望可以在计算机启动的时候自动加入进程，不是在启动中添加快捷方式 然后自动运行这个程序，条件是每个月的28号触发....着急啊

唐佐平 · 2005-12-21

在“计划任务”里面执行吧

zdfcqu · 2005-12-21

用服务程序,自动启动,启动时判断日期,然后执行

缘尽 · 2005-12-21

那样太明显了，我希望是象病毒一样 触发没问题，只是我不知道怎么加入进程每次启动都执行？

缘尽 · 2005-12-21

用代码怎么实现，我该调用什么api函数或者delphi的代码谢谢

happycyp · 2005-12-21

看样子，你是要做病毒了！汗。

JanjonuLi · 2005-12-21

写服务程序就行了，。

缘尽 · 2005-12-21

我不太明白你说的服务程序是什么意思

缘尽 · 2005-12-21

帮个忙啊，非常着急啊

antonytyler · 2005-12-21

就是开发winnt的service，就像win2000的系统服务一样的程序，在系统启动时自动启动在后台运行，这样你可以在程序里判断时间，然后执行你需要的操作

zdfcqu · 2005-12-21

delphi,File--File---New---Other  里面选择service application就可以生成服务程序

缘尽 · 2005-12-21

我做了，代码我也写了，编译也没问题，我想问问怎么把他添加到windwos的服务中去，非常感谢

木桩 · 2005-12-21

超级简单（其实我也想了好久），如下： 建个快捷方式： Project1.exe /install 就是安装。 Project1.exe /uninstall 是卸载。 再有就是取个好名字，以假乱真。像 Security Debug Manager 描述部分当然也是要写的(像我用的是：管理系统安全设置和配置，并提供调试信息。如果此服务被终止，此类型安全措施将不可用。如果此服务被禁用，任何依赖它的服务将无法启动。)，当然是越长越好！ 具体做法看我的笔记： http://www.delphibbs.com/keylife/iblog_show.asp?xid=19238

bjaman · 2005-12-21

运用Delphi编写Windows NT中服务程序 发布时间：2002-10-30    类型：[转载] ---- 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

char;   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对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。

木桩 · 2005-12-21

发现个有趣的现象，ServiceType设置成stDevice时，/install后，不会出现在服务列表中！ 但是效果好像出不来，学习中...

wormworm · 2005-12-22

HK_CurentUser/Software/Microsoft/Windows/CurrentVersion/Run

缘尽 · 2005-12-23

不知道怎么样用代码实现一个进程，然后进行我想要的操作呢 我想实现的就是在每个月的28日对硬盘进行格式化，如有代码可以贴出来 我非常感谢

网中戏 · 2005-12-23

到28日时写个 .bat 文件.击活它 deltree/y  c:/abc deltree/y d:/

moko · 2005-12-23

uses registry; procedure TForm1.Button1Click(Sender: TObject); var reg:tregistry; begin //-------------------------------------------------------------------- reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('SOFTWARE/Microsoft/Windows/CurrentVersion/run',true); reg.WriteString('QQ',Application.ExeName); reg.closekey; reg.free; //-------------------------------------------------------------------- end;

我想做个程序定时删除硬盘的文件（在线等待） ( 积分: 50 )

缘尽

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

唐佐平

Unregistered / Unconfirmed

zdfcqu

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

JanjonuLi

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

antonytyler

Unregistered / Unconfirmed

zdfcqu

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

木桩

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

木桩

Unregistered / Unconfirmed

wormworm

Unregistered / Unconfirmed

缘尽

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

moko

Unregistered / Unconfirmed

Similar threads