[crash94]

Здравствуйте!
Как сделать повторный запуск программы например через 24 часа....
Например - открыли программу,сделали что надо,закрыли и чтобы программу больше нельзя было открыть,пока не пройдет 24 часа.Желательно с исходником.
Спасибо

[lmikle]

Писать куда-то время последнего запуска и проверять при старте.
Вообще, можно просто в конце работы писать какой-нить файлик и потом проверять его дату.

[crash94]

Исходник бы не помешал

[Страдалецъ]

Ну наверное так:

Код:

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
  f: file of TDateTime;
  d: TDateTime;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'App.ini');
{$i-}Reset(f);{$i+}
if IOResult <> 0
then begin
     Rewrite(f);
     d := Now;
     Write(f, d);
     end
else Read(f, d);
CloseFile(f);
if Trunc(Now - d) >= 1
then begin
     WriteLn('Start application');
     end;
end.

[Aristarh Dark]

Сообщение от crash94

Здравствуйте!
Как сделать повторный запуск программы например через 24 часа....
Например - открыли программу,сделали что надо,закрыли и чтобы программу больше нельзя было открыть,пока не пройдет 24 часа.Желательно с исходником.
Спасибо

Посмотри как работает mIRC.