Y
yjpya
Unregistered / Unconfirmed
GUEST, unregistred user!
各位朋友，程序代码如下，我设置了程序每隔20秒，就进行对目标主机连接一次，但时间一长，程序占用系统的值就会不断增加，即程序所耗的内存越来越大。请问怎样改，才可以使程序，既可以长时间运行，又不会占用系统太多的资源呢？请各位朋友赐教，万分感谢！！！
var
Form1: TForm1;
firstopen, exename, exesum: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
ini: Tinifile;
begin
screen.Cursor := crHourGlass;
ini := Tinifile.Create(ExtractFilePath(application.ExeName) + '/path/login.ini');
firstopen := ini.ReadString('firstopen', 'firstopen', '');
exename := ini.ReadString('exename', 'exename', '');
exesum := ExtractFilePath(application.ExeName) + exename;
ShellTreeView1.Root := firstopen;
ini.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShellTreeView1.Root := firstopen;//其中firstopen的值为：“//192.168.0.228/C$”
end;
end.
var
Form1: TForm1;
firstopen, exename, exesum: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
ini: Tinifile;
begin
screen.Cursor := crHourGlass;
ini := Tinifile.Create(ExtractFilePath(application.ExeName) + '/path/login.ini');
firstopen := ini.ReadString('firstopen', 'firstopen', '');
exename := ini.ReadString('exename', 'exename', '');
exesum := ExtractFilePath(application.ExeName) + exename;
ShellTreeView1.Root := firstopen;
ini.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShellTreeView1.Root := firstopen;//其中firstopen的值为：“//192.168.0.228/C$”
end;
end.