{"id":5,"date":"2009-02-27T12:31:03","date_gmt":"2009-02-27T09:31:03","guid":{"rendered":"http:\/\/it-freelance.ru\/?p=5"},"modified":"2009-02-27T12:31:03","modified_gmt":"2009-02-27T09:31:03","slug":"invisible-soft","status":"publish","type":"post","link":"http:\/\/it-freelance.ru\/?p=5","title":{"rendered":"Invisible Soft"},"content":{"rendered":"

\u0412 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0435 \u0432\u0440\u0435\u043c\u044f \u0438\u043d\u0442\u0435\u0440\u0435\u0441 \u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430\u043c-\u043d\u0435\u0432\u0438\u0434\u0438\u043c\u043a\u0430\u043c \u0441\u043d\u043e\u0432\u0430 \u0432\u043e\u0437\u0440\u043e\u0441. \u0412 \u043f\u0435\u0440\u0432\u0443\u044e \u043e\u0447\u0435\u0440\u0435\u0434\u044c \u044d\u0442\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043e \u0441 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0443 \u0440\u044f\u0434\u043e\u0432\u044b\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 WinXP. \u042d\u0442\u0430 \u041e\u0421\u044c, \u043a\u0430\u043a \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e, \u043e\u0431\u043b\u0430\u0434\u0430\u0435\u0442 \u0432\u0441\u0435\u043c\u0438 \u0437\u0430\u0449\u0438\u0442\u043d\u044b\u043c\u0438 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0441\u0442\u044f\u043c\u0438 \u043b\u0438\u043d\u0435\u0439\u043a\u0438 NT. \u0418 \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043b\u0435\u0432\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u044b \u0441\u0442\u0430\u043b\u043e \u201c\u043d\u0435\u043c\u043d\u043e\u0436\u043a\u043e\u201d \u0441\u043b\u043e\u0436\u043d\u0435\u0435 \u043f\u0440\u044f\u0442\u0430\u0442\u044c \u043e\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f. \u041d\u043e \u0438 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043d\u043e\u0432\u044b\u0445 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0441\u043e\u043a\u0440\u044b\u0442\u0438\u044f \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0438\u044f \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0440\u0438\u0431\u0430\u0432\u0438\u043b\u043e\u0441\u044c ;). \u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u044f \u044f \u0440\u0430\u0441\u0441\u043a\u0430\u0436\u0443 \u043e \u043d\u043e\u0432\u043e\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u0435 \u201c\u043d\u0435\u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438\u201d (\u043f\u0440\u0438\u0447\u0451\u043c \u044d\u0442\u043e\u0442 \u0441\u043f\u043e\u0441\u043e\u0431 \u0445\u043e\u0440\u043e\u0448\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043a\u0430\u043a \u0432 9x, \u0442\u0430\u043a \u0438 \u0432 XP). \u0421\u0443\u0442\u044c \u0435\u0433\u043e \u0437\u0430\u043a\u043b\u044e\u0447\u0430\u0435\u0442\u0441\u044f \u0432 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c: \u043c\u044b \u0431\u0435\u0440\u0451\u043c \u043a\u0430\u043a\u0443\u044e-\u043b\u0438\u0431\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0435\u0441\u0442\u044c \u0443 \u0431\u043e\u043b\u0435\u0435 \u0447\u0435\u043c 90% \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0438 \u043d\u0435\u043c\u043d\u043e\u0436\u043a\u043e \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0435\u0451. (\u0418\u0437 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u043d\u0438\u0436\u0435 \u043a\u0430\u0440\u043a\u0430\u0441\u0430 \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0432\u0441\u0451 \u0447\u0442\u043e \u0443\u0433\u043e\u0434\u043d\u043e!) \u041f\u043b\u044e\u0441\u044b \u044d\u0442\u043e\u0433\u043e \u043c\u0435\u0442\u043e\u0434\u0430 \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u044b \u2013 \u0440\u0430\u0437 \u0437\u0430\u0440\u0430\u0436\u0451\u043d\u043d\u043e\u0439 \u043d\u0430\u043c\u0438 \u043f\u0440\u043e\u0433\u043e\u0439 \u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u043f\u043e\u0447\u0442\u0438 (\u0430 \u043b\u0443\u0447\u0448\u0435 \u0431\u0435\u0437 \u201c\u043f\u043e\u0447\u0442\u0438\u201d) \u0432\u0441\u0435, \u0442\u043e \u043d\u0430 \u043d\u0435\u0451 \u043d\u0438\u043a\u0442\u043e \u043d\u0438\u0447\u0435\u0433\u043e \u043f\u043b\u043e\u0445\u043e\u0433\u043e \u043d\u0435 \u043f\u043e\u0434\u0443\u043c\u0430\u0435\u0442, \u043a \u0442\u043e\u043c\u0443 \u0436\u0435 \u043d\u0430\u0448 \u043a\u0443\u0441\u043e\u043a \u043a\u043e\u0434\u0430 \u041d\u0418\u0413\u0414\u0415 \u041d\u0415 \u0411\u0423\u0414\u0415\u0422 \u0412\u0418\u0414\u0415\u041d. \u042d\u0442\u043e \u0430\u043a\u0442\u0443\u0430\u043b\u044c\u043d\u043e \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u0434\u043b\u044f XP, \u0442\u0430\u043a \u043a\u0430\u043a \u0432 \u043d\u0435\u0439 \u043a\u0443\u0447\u0430 \u043d\u0435\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 (\u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0438 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430\u043c\u0438) \u0438 NtQuerySystemInformation \u043d\u0435 \u0441\u0430\u043c\u0430\u044f \u201c\u043e\u043f\u0430\u0441\u043d\u0430\u044f\u201d \u0434\u043b\u044f \u043d\u0430\u0441 \u0432 \u0434\u0430\u043d\u043d\u043e\u0439 \u041e\u0421\u0438. \u0422\u0430\u043a \u0447\u0442\u043e \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0443 \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0438\u0442\u044c :).
\n\u041c\u043e\u0439 \u0432\u044b\u0431\u043e\u0440 \u043f\u0430\u043b \u043d\u0430 Explorer :). \u041e\u043d \u0435\u0441\u0442\u044c \u043f\u043e\u0447\u0442\u0438 \u0443 \u0432\u0441\u0435\u0445 \u0441\u0447\u0430\u0441\u0442\u043b\u0438\u0432\u044b\u0445 \u043e\u0431\u043b\u0430\u0434\u0430\u0442\u0435\u043b\u0435\u0439 \u0432\u0438\u043d\u0434\u043e\u0432\u041e\u0437\u0430. \u041a\u0430\u043a\u0443\u044e \u0435\u0433\u043e \u0447\u0430\u0441\u0442\u044c \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043c\u0443\u0447\u0438\u0442\u044c? \u041d\u0443, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0432 \u043b\u0435\u0432\u044b\u0439 \u043d\u0438\u0436\u043d\u0438\u0439 \u0443\u0433\u043e\u043b :). \u0414\u0430, \u0438\u043c\u0435\u043d\u043d\u043e \u0447\u0430\u0441\u044b \u0441\u0442\u0430\u043d\u0443\u0442 \u043d\u0430\u0448\u0435\u0439 \u0436\u0435\u0440\u0442\u0432\u043e\u0439.
\n\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0442\u0435\u043e\u0440\u0438\u0438. \u041d\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043a\u0430 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0441\u0442\u043e\u044f\u0442\u044c \u0438\u0437 3-\u0445 \u0444\u0430\u0439\u043b\u043e\u0432. (Exe \u2013 1 \u0448\u0442\u0443\u043a\u0430, DLL \u2013 2 \u0448\u0442\u0443\u043a\u0430 :)). \u041d\u0430\u0448\u0435\u0439 \u0437\u0430\u0434\u0430\u0447\u0435\u0439 \u0431\u0443\u0434\u0435\u0442 \u043a\u0430\u043a\u0430\u044f-\u043b\u0438\u0431\u043e \u0432\u0441\u0442\u0430\u0432\u043a\u0430 \u043a\u043e\u0434\u0430 \u0432 \u201c\u043c\u0435\u0445\u0430\u043d\u0438\u0437\u043c \u0447\u0430\u0441\u043e\u0432\u201d. \u041b\u0443\u0447\u0448\u0435\u0435 \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0434\u0435\u043b\u0430 \u043c\u0435\u0441\u0442\u043e \u044d\u0442\u043e \u043e\u043a\u043e\u043d\u043d\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043e\u043a\u043d\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 TrayClockWClass. \u041f\u043e\u0441\u043b\u0435 \u0432\u044b\u0431\u043e\u0440\u0430 \u0436\u0435\u0440\u0442\u0432\u044b \u0432\u0441\u0451 \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c\u0441\u044f \u043f\u0440\u043e\u0441\u0442\u043e. \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u0442\u0430\u043a:
\nExe \u0431\u0443\u0434\u0435\u0442 \u0432\u0441\u0451 \u044d\u0442\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0442\u044c, \u043e\u0434\u043d\u0430 \u0438\u0437 \u0414\u041b\u041b\u043e\u043a \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0445\u0443\u043a \u0438 \u043f\u0440\u043e\u043d\u0438\u043a\u0430\u0442\u044c \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441 Explorer\u2019\u0430, \u0434\u0440\u0443\u0433\u0430\u044f \u0436\u0435 \u2013 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0435\u0433\u043e \u043d\u043e\u0432\u0443\u044e \u043e\u043a\u043e\u043d\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443. \u0414\u043b\u044f \u043f\u0440\u043e\u043d\u0438\u043a\u043d\u043e\u0432\u0435\u043d\u0438\u044f \u043c\u044b \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f SetWindowsHookEx \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c WH_GETMESSAGE\u2026 \u041d\u043e \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u044d\u043a\u0437\u044d\u0448\u043d\u0438\u043a. \u0415\u0433\u043e \u0446\u0435\u043b\u044c\u044e \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0430 \u0414\u041b\u041b\u043a\u0438 \u0441 \u0445\u0443\u043a\u043e\u043c, \u0437\u0430\u0442\u0435\u043c \u043c\u044b \u043f\u043e\u0434\u043e\u0436\u0434\u0451\u043c \u043d\u0435\u043c\u043d\u043e\u0433\u043e (sleep(1000)), \u0438 \u043f\u043e\u0448\u043b\u0451\u043c \u0447\u0430\u0441\u0430\u043c \u043c\u0435\u0441\u0441\u0430\u0433\u0443, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043f\u0430\u0441\u0442\u044c \u0432 \u0438\u0445 \u043f\u0440\u043e\u0446\u0435\u0441\u0441.<\/p>\n

uses
\nwindows,messages,shellapi;<\/p>\n

{$R *.res}
\nvar h:integer;
\nFI:NOTIFYICONDATA;
\ni:integer;
\nprocedure RunStopHook(b:boolean);stdcall;external ‘hdll.dll’; \/\/ \u043f\u0440\u043e\u0446\u0430 \u0432 \u043d\u0430\u0448\u0435\u0439 DLL\u2019\u043a\u0435 \u0441 \u0445\u0443\u043a\u043e\u043c.
\nbegin
\nRunStopHook(true);
\nh := FindWindowEx(0, 0, ‘Shell_TrayWnd’, nil);
\nh := FindWindowEx(h, 0, ‘TrayNotifyWnd’, nil);
\nh := FindWindowEx(h, 0, ‘TrayClockWClass’, nil);
\nsleep(1000); \/\/ \u0447\u0442\u043e \u0431\u044b \u043d\u0430\u0448\u0430 Dll\u2019\u043a\u0430 \u0443\u0441\u043f\u0435\u043b\u0430 \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c\u0441\u044f.
\npostmessage(h,wm_paint,0,0);
\nzeromemory(@FI,sizeof(FI));
\nFI.cbSize:=sizeof(FI);
\nFI.szTip:=’Hello temp’;
\nFI.uFlags:=NIF_TIP;
\nFI.Wnd:=GetDeskTopWindow;
\nShell_NotifyIcon(NIM_ADD,@FI); \/\/ \u0443 \u0447\u0430\u0441\u043e\u0432 \u043c\u044b \u0432 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0435\u043c \u043f\u043e\u043c\u0435\u043d\u044f\u0435\u043c \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u0443 (\u0434\u043b\u044f \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u043e\u0441\u0442\u0438)
\nShell_NotifyIcon(NIM_DELETE,@FI);
\nend.<\/p>\n

\u0422\u0430\u043a-\u0441. \u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u0434\u0443\u043c\u0430\u0435\u043c \u043e \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0414\u041b\u041b\u043a\u0438 \u0441 \u0445\u0443\u043a\u043e\u043c. \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043f\u0435\u0440\u0435\u0445\u0432\u0430\u0442\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0441\u0432\u0435\u0440\u044f\u0442\u044c \u0445\u044d\u043d\u0434\u043b \u0447\u0430\u0441\u043e\u0432 \u0441 \u0445\u044d\u043d\u0434\u043b\u043e\u043c \u043f\u0435\u0440\u0435\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u043e\u0433\u043e message\u2019\u0430. \u0415\u0441\u043b\u0438 \u043e\u043d\u0438 \u0440\u0430\u0432\u043d\u044b, \u0442\u043e \u0414\u041b\u041b\u043a\u0430 \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 Explorer\u2019\u0430. \u0418 \u0442\u0443\u0442 \u043c\u044b \u0443\u0436\u0435 \u043c\u043e\u0436\u0435\u043c \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043e\u043a\u043d\u0430 \u0447\u0430\u0441\u043e\u0432. \u041d\u043e \u0432\u0441\u0451 \u043f\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0443 :).<\/p>\n

library hdll;<\/p>\n

uses
\nSysUtils,
\nClasses,
\nwindows,
\nmessages;<\/p>\n

{$R *.res}<\/p>\n

var syshook:hhook; \/\/ \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0434\u043b\u044f \u0445\u0443\u043a\u0430<\/p>\n

procedure GetAndSet(h:integer);stdcall; external ‘gas.dll’; \/\/ \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0438\u0437 2-\u043e\u0439 \u0414\u041b\u041b\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0437\u0430\u043c\u0435\u043d\u0438\u0442 \u043e\u043a\u043e\u043d\u043d\u0443\u044e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0447\u0430\u0441\u043e\u0432.<\/p>\n

function CallWndProc(
\nnCode:integer ;\t\/\/ hook code
\nwParam: WPARAM ;\t\/\/ current-process flag
\nlParam: LPARAM \t\/\/ address of structure with message data
\n):LRESULT;stdcall;
\nvar h:integer;
\nok:boolean; \/\/ \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432\u043b\u0438\u044f\u044e\u0449\u0430\u044f \u043d\u0430 \u0441\u043d\u044f\u0442\u0438\u0435 \u0445\u0443\u043a\u0430. (\u0442.\u0435. \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044e\u0449\u0430\u044f, \u0447\u0442\u043e \u043e\u043a\u043e\u043d\u043d\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0447\u0430\u0441\u043e\u0432 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0430)
\nbegin
\nok:=false;
\nH := FindWindowEx(0, 0, ‘Shell_TrayWnd’, nil);
\nH := FindWindowEx(H, 0, ‘TrayNotifyWnd’, nil); \/\/ \u0432\u0441\u0435 \u043f\u044d\u0440\u044d\u043d\u0442\u044b \u0447\u0430\u0441\u043e\u0432 \u043c\u043e\u0436\u043d\u043e \u0443\u0437\u043d\u0430\u0442\u044c \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e Spy++ (\u0430 \u043b\u044e\u0431\u0438\u0442\u0435\u043b\u0435\u0439 \u043a\u043e\u0434\u0438\u043d\u0433\u0430 \u043e\u0442\u0441\u044b\u043b\u0430\u044e \u043a MSDN GetParent & WindowFromPoint)
\nif tmsg(pointer(lparam)^).hwnd=H then begin
\nh := FindWindowEx(H, 0, ‘TrayClockWClass’, nil); \/\/ \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0445\u044d\u043d\u0434\u043b \u0447\u0430\u0441\u043e\u0432
\nloadlibrary(‘gas.dll’); \/\/ \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c 2-\u0443\u044e \u0414\u041b\u041b\u043a\u0443 (\u0447\u0442\u043e\u0431\u044b \u043e\u043d\u0430 \u0432\u0438\u0441\u0435\u043b\u0430 \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 Explorer\u2019\u0430)
\nGetAndSet(h); \/\/ \u043c\u0435\u043d\u044f\u0435\u043c \u0435\u043c\u0443 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443
\nInvalidaterect(h,nil,false); \/\/sendmessage(h,wm_paint,0,0);
\nok:=true;
\nend;
\nresult:=CallNextHookex(syshook,ncode,wparam,lparam);
\nif ok then UnHookWindowsHookEx(syshook); \/\/ \u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0435\u043c \u0445\u0443\u043a
\nend;<\/p>\n

procedure RunStopHook(b:boolean);export;stdcall;
\nbegin
\nif b then SyShook:=Setwindowshookex(WH_GETMESSAGE,@callWndProc,Hinstance,0)
\nelse unhookwindowshookex(syshook);
\nif (syshook=cardinal(-1)) or(syshook=cardinal(0)) then messagebox(0,’Suxx’,»,mb_ok);
\nend;<\/p>\n

exports RunStopHook;<\/p>\n

begin
\nend.<\/p>\n

\u0422\u0435\u043f\u0435\u0440\u044c \u0441\u0430\u043c\u043e\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435 \u2013 \u043e\u043a\u043e\u043d\u043d\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0447\u0430\u0441\u043e\u0432. \u0415\u0451 \u043c\u043e\u0436\u043d\u043e \u043c\u043e\u0434\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0443\u0433\u043e\u0434\u043d\u043e: \u044d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438 \u0433\u0435\u0440\u043e\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0436\u0438\u0442\u0435\u043b\u044c \u0442\u0440\u043e\u0438, \u0438 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u043d\u044b\u0439 \u0448\u043f\u0438\u043e\u043d, \u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u0444\u0435\u043d\u043a\u0430 (\u0435\u0451, \u0442\u043e, \u044f \u0438 \u043f\u043e\u043a\u0430\u0436\u0443) . \u041f\u0440\u0438 \u0437\u0430\u043c\u0435\u043d\u0435 \u043e\u043a\u043e\u043d\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0448\u0440\u0438\u0444\u0442 \u0438 \u0438\u043c \u0431\u0443\u0434\u0435\u043c \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u0432\u0440\u0435\u043c\u044f \u0435\u0436\u0435\u0441\u0435\u043a\u0443\u043d\u0434\u043d\u043e. \u0422\u0430\u043a \u0436\u0435 \u043c\u044b \u043d\u0435 \u0434\u043e\u043b\u0436\u043d\u044b \u0437\u0430\u0431\u044b\u0432\u0430\u0442\u044c \u0438 \u043e \u0441\u0442\u0430\u0440\u043e\u0439 \u043e\u043a\u043e\u043d\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0435, \u0432\u0435\u0434\u044c \u043e\u043d\u0430 \u0442\u043e\u0436\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u043d\u0435 \u043c\u0430\u043b\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0439! (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0432\u044b\u0437\u043e\u0432 \u043e\u043a\u043d\u0430 \u043f\u043e \u0434\u0432\u043e\u0439\u043d\u043e\u043c\u0443 \u0449\u0435\u043b\u0447\u043a\u0443 \u043d\u0430 \u0447\u0430\u0441\u0430\u0445 \u0438 popup \u043f\u043e \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0435\u2026)<\/p>\n

library gas;<\/p>\n

uses
\nSysUtils,
\nClasses,windows,messages,shellapi;<\/p>\n

{$R *.res}
\nvar SavedProc:pointer;
\nf:integer;
\nprocedure MyDraw(h:hwnd); \/\/ \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u201c\u043a\u0430\u043d\u0432\u0430\u0441\u0438\u043d\u044c\u044f\u201d
\nvar s:array[0..20] of char;
\ntime:_systemtime;
\nbegin
\ns:=’hh»:»mm»:»ss’; \/\/ \u043c\u0430\u0441\u043a\u0430 \u0432\u0440\u0435\u043c\u0435\u043d\u0438
\nSetTextColor(h,$ff0100); \/\/ \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0446\u0432\u0435\u0442\u0430 \u0442\u0435\u043a\u0441\u0442\u0430
\nselectObject(h,f);
\nGetLocalTime(time);
\nGetTimeFormat(LOCALE_USER_DEFAULT,TIME_FORCE24HOURFORMAT,@time,s,s,21); \/\/ \u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0440\u0443\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0441\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0435\u043c
\nTextOut(h,0,0,@s[0],8); \/\/ \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443
\nend;<\/p>\n

function WinProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
\nvar http:integer;
\npp:PAINTSTRUCT;
\nbegin
\ncase msg of
\nWM_PAINT:begin \/\/ \u043f\u0435\u0440\u0435\u0445\u0432\u0430\u0442 \u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430
\nhttp:=beginPaint(hwnd, pp);
\nMyDraw(http);
\nendpaint(hwnd,pp);
\nresult:=0;
\nend;
\nwm_timer:
\nbegin
\nhttp:=getdc(hwnd);
\nMyDraw(http);
\nreleasedc(hwnd,http);
\nresult:=0;
\nend;
\nWM_USER+100:result:=195 +(20 shl 16); \/\/ \u044d\u0442\u0430 \u0444\u0438\u0448\u043a\u0430 \u043e\u043a\u043e\u043d\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0447\u0430\u0441\u043e\u0432. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c message\u2019\u0435 \u0432\u0438\u043d\u0434\u0430 \u043e\u0436\u0438\u0434\u0430\u0435\u0442 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u043e\u0442\u0432\u0435\u0442 \u043e \u0440\u0430\u0437\u043c\u0435\u0440\u0435 \u0447\u0430\u0441\u043e\u0432.
\nelse
\nresult:=CallWindowProc(SavedProc,hwnd,msg,wparam,lparam); \/\/ \u0435\u0441\u043b\u0438 \u043c\u0435\u0441\u0441\u0430\u0433\u0430 \u043d\u0435 \u043d\u0430\u0448\u0430, \u0442\u043e \u043f\u0443\u0441\u0442\u044c \u0435\u0451 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0441\u0442\u0430\u0440\u044b\u0439 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a
\nend;
\nend;<\/p>\n

procedure GetAndSet(h:integer);stdcall;
\nvar p,p2:Trect;
\nhand,h2:integer;
\nbegin
\nif pointer(getwindowlong(h,GWL_WNDPROC))<>@winProc then begin\/\/ \u044d\u0442\u0430 \u0444\u0438\u0448\u043a\u0430, \u0441\u043b\u0443\u0436\u0435\u0442 \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u043d\u0430\u0434\u0435\u043b\u0430\u0442\u044c \u043b\u0438\u0448\u043d\u0438\u0445 \u043f\u0440\u043e\u0446. :]
\nSavedProc:=pointer(SetWindowLong(h,GWL_WNDPROC,cardinal(@Winproc)));
\nSetTimer(h,0,1000,nil); \/\/ \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u0442\u0430\u0439\u043c\u0435\u0440
\nf:=CreateFont(20,25,0,0,FW_THIN,1,1,0,RUSSIAN_CHARSET,OUT_CHARACTER_PRECIS,CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY\t,FF_MODERN\t,nil); \/\/ \u0421\u043e\u0437\u0434\u0430\u0451\u043c \u0448\u0440\u0438\u0444\u0442
\nend;
\nend;<\/p>\n

exports GetAndSet;
\nbegin
\nend.<\/p>\n

\u041f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u0443\u044e \u0432\u044b\u0448\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u0438 \u0445\u043e\u0440\u043e\u0448\u043e \u0431\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0430\u0441\u0438\u043d\u0445\u0440\u043e\u043d\u043d\u044b\u043c\u0438 \u0441\u043e\u043a\u0435\u0442\u0430\u043c\u0438 :). \u041d\u0430 \u044d\u0442\u043e\u043c \u043f\u043e\u043a\u0430 \u0432\u0441\u0451. (to be continued\u2026)<\/p>\n","protected":false},"excerpt":{"rendered":"

\u0412 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0435 \u0432\u0440\u0435\u043c\u044f \u0438\u043d\u0442\u0435\u0440\u0435\u0441 \u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430\u043c-\u043d\u0435\u0432\u0438\u0434\u0438\u043c\u043a\u0430\u043c \u0441\u043d\u043e\u0432\u0430 \u0432\u043e\u0437\u0440\u043e\u0441. \u0412 \u043f\u0435\u0440\u0432\u0443\u044e \u043e\u0447\u0435\u0440\u0435\u0434\u044c \u044d\u0442\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043e \u0441 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0443 \u0440\u044f\u0434\u043e\u0432\u044b\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 WinXP. \u042d\u0442\u0430 \u041e\u0421\u044c, \u043a\u0430\u043a \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e, \u043e\u0431\u043b\u0430\u0434\u0430\u0435\u0442 \u0432\u0441\u0435\u043c\u0438 \u0437\u0430\u0449\u0438\u0442\u043d\u044b\u043c\u0438 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0441\u0442\u044f\u043c\u0438 \u043b\u0438\u043d\u0435\u0439\u043a\u0438 NT. \u0418 \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043b\u0435\u0432\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u044b \u0441\u0442\u0430\u043b\u043e \u201c\u043d\u0435\u043c\u043d\u043e\u0436\u043a\u043e\u201d \u0441\u043b\u043e\u0436\u043d\u0435\u0435 \u043f\u0440\u044f\u0442\u0430\u0442\u044c \u043e\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f. \u041d\u043e \u0438 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u043d\u043e\u0432\u044b\u0445 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0441\u043e\u043a\u0440\u044b\u0442\u0438\u044f \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0438\u044f \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0440\u0438\u0431\u0430\u0432\u0438\u043b\u043e\u0441\u044c ;). \u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u044f \u044f \u0440\u0430\u0441\u0441\u043a\u0430\u0436\u0443 \u043e […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"http:\/\/it-freelance.ru\/index.php?rest_route=\/wp\/v2\/posts\/5"}],"collection":[{"href":"http:\/\/it-freelance.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/it-freelance.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/it-freelance.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/it-freelance.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5"}],"version-history":[{"count":0,"href":"http:\/\/it-freelance.ru\/index.php?rest_route=\/wp\/v2\/posts\/5\/revisions"}],"wp:attachment":[{"href":"http:\/\/it-freelance.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/it-freelance.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/it-freelance.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}