03/01/04 17:47 aqc2Py1n
>>947
procedure TAge2chMainWnd.AutoMaintainTimerTimer(Sender: TObject);
var
i: integer;
iNow, iSub: integer;
begin
iNow := DateTimeToUnix(Now);
iSub := Config.netMaintainWait; //書き換え箇所
for i := 0 to UrlListView.Items.Count - 1 do
begin
if Pos('m', UrlListView.Items[i].SubItems[5]) > 0 then
if iNow - DateTimeToUnix(StrToDateTime(UrlListView.Items[i].SubItems[1])) > iSub then
PostQueue.Add(UrlListView.Items[i].SubItems[2]);
end;
PostTimer.Enabled := true;
end;
procedure TAge2chMainWnd.M1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to UrlListView.Items.Count - 1 do
begin
if UrlListView.Items[i].Selected then
PostQueue.Add(UrlListView.Items[i].SubItems[2]);
end;
PostTimer.Enabled := true;
end;