Age2ch - 暇つぶし2ch

Age2ch at SOFTWARE

949:名無しさん＠お腹いっぱい。
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;

次ページ

続きを表示

1を表示