迎星东路1号:帮忙编个软件吧 谢谢谢谢谢谢了!
问题补充:QQ:69382790
邮箱:qinjin5257@sohu.com
qinjin5257@163.com
竹排:
答应帮你写就帮你写啦!
你不给我分就说不过去啦!正发到你的邮箱.......
程序执行后的记录文件:
----------------------------------------------
[ccdarkness] <------这个是登陆的用户名
开始使用时间=2005-12-7 22:52:15
结束使用时间=2005-12-7 22:54:15
[~亲亲的宝贝~] <------这是另一个登陆的用户名
开始使用时间=2005-12-7 22:55:15
结束使用时间=2005-12-7 22:59:15
----------------------------------------------
程序代码如下(delphi):
unit my;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, registry,IniFiles;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
username:string;
f:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
myreg: tregistry;
begin
application.ShowMainForm := false; //隐藏软件界面
Timer1.Enabled := true;
f:=0;
myreg := tregistry.Create; //让软件随电脑自动启动
myreg.RootKey := HKEY_CURRENT_USER;
if myreg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\Windows', true) then
myreg.WriteString('load', application.ExeName);
myreg.CloseKey;
myreg.RootKey:=HKEY_CURRENT_USER; //获取用户名
if myreg.OpenKey('\Volatile Environment',true) then
username:=myreg.ReadString('HOMEPATH');
username:=copy(username,25,length(username)-23);
myreg.CloseKey;
myreg.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
myini:tinifile;
ininame:string;
begin
ininame:=extractfilepath(paramstr(0))+'timer.ini';
myini:= tinifile.Create(ininame);
if f=0 then
begin
myini.WriteString(username,'开始使用时间',DateTimeToStr(Now));
f:=1;
end
else
myini.WriteString(username,'结束使用时间',DateTimeToStr(Now));
myini.Free;
end;
end.
呵呵,是不是要分摊电费啊?
不用这么麻烦的.
xp不是可以建立很多帐户吗,哪位老大帮忙编款软件用于记录各个帐户的用机时间?谢谢你的关注!
问题补充:QQ:69382790
很简单的啊~~~~~~~,
你会编程吗?
我可以告诉你方法~~
当然也可以帮你编起哈~~~~~~~
小心病毒