"Логическая функция"

[ZYRGiX]

Program ***
Uses windows;
Begin
If timetostr(time)=’22:22’ then
Begin
// Код
end;
end;
End.
Как выполнить эту же функцию но на WinApi?

[Alex21]

Подключить SysUtils

[JTG]

что-то вроде этого (тока проверить негде, ошибки уже сам исправляй )

var t: _SystemTime;
     ptime:array[0..4] of char;

begin
  GetSystemTime(t);
  wsprintf(@ptime,'%s.%s',pointer(t.whour), pointer(t.wMinute));
  If lstrcmp(ptime,'22.22')=0 then
    begin
     {...}
    end;
end.

и зачем кстати дату в строку переводить?

var t: _SystemTime;

begin
  GetSystemTime(t);
  If (t.whour=22) and (t.wMinute=22) then
    begin
     {...}
    end;
end.

[Alex21]

GetSystemTime(t);

Надо учитывать, что это - системное время, без учета часовых поясов. Т.е. для Москвы это = -4 часа.

[JTG]

тада GetLocalTime
да и в wsprintf не то написал, пардон

Короче вот, думаю WinAPI'шнее некуда

format PE GUI 4.0
entry start

include 'win32a.inc'

section '.DatImp' data readable writeable import

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'

  include 'api\kernel32.inc'
  include 'api\user32.inc'

  _t    SYSTEMTIME
  _now      db 6 dup 0
  _expected db '22.22',0
  _format   db '%02hd.%02hd',0

  capt      db 'Message',0
  equal     db 'Equal',0
  nequal    db 'Not equal',0

section '.code' code readable executable

  start:
        invoke GetLocalTime,_t
        invoke wsprintf,_now,_format,dword[_t.wHour],dword[_t.wMinute]
        invoke lstrcmp,_now,_expected
        cmp    eax,0
        je     .equal2222
        invoke MessageBox,0,nequal,capt,0
        jmp    .happyend
   .equal2222:
        invoke MessageBox,0,equal,capt,0
   .happyend:
        invoke ExitProcess,0