Скачать: CL | DM;

Вот код   Найти похожие ветки 

← →
snoup ©   (2003-12-14 00:52) [0]

program Reminder;

{$APPTYPE CONSOLE}

uses
Windows, IniFiles, Classes, SysUtils;

var
ID: string;

procedure OpenProg;
begin
WinExec(Pchar(ExtractFilePath(ParamStr(0))+"NoteBook.exe"+" "+ID),SW_SHOW);
end;

procedure Detecting(FileName: string);
var
IDs: TStringList;
i, iI: integer;
begin
iI:=1;
while iI>0 do
begin
with TIniFile.Create(FileName) do
begin
IDs:=TStringList.Create;
ReadSections(IDs);
for i:=1 to IDs.Count-1 do
if ReadBool(IDs.Strings[i],"Active",true) then
if ReadBool(IDs.Strings[i],"TimeCheck",false) then
begin
if DateToStr(ReadDate(IDs.Strings[i],"Date",0)) +" "+ReadString(IDs.Strings[i],"Time","")<=FormatDateTime("dd.MM.yyyy hh:mm",Now) then
begin
ID:=IDs.Strings[i];
OpenProg;
Exit;
end
end
else
if DateToStr(ReadDate(IDs.Strings[i],"Date",0))<=FormatDateTime("dd.MM.yyyy", Now) then
begin
ID:=IDs.Strings[i];
OpenProg;
Exit;
end;
IDs.Free;
Free;
end;
Sleep(20000);
end;
end;

begin
Detecting(ExtractFilePath(ParamStr(0))+"Data\Reminders.dat");
end.

---

← →
snoup ©   (2003-12-14 01:01) [1]

ВСЕМ СОРРИ ЗА СПАМ...ЭТО ТОЛЬКО, чтобы УМНЫЕ ЛЮДИ КОД ПРОЧЛИ...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c