\u0425\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430
\n<\/p>\n
\u0425\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430\n\n1.\u0412 \u0444\u0430\u0439\u043b \u043f\u0440\u043e\u0435\u043a\u0442\u0430 (*.dpr) \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0441\u0442\u0440\u043e\u043a\u0443 {$d scrnsave <\u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f>} \u043f\u043e\u0441\u043b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u043c\u043e\u0434\u0443\u043b\u0435\u0439 (uses...).\n2.\u0423 \u043e\u043a\u043d\u0430 \u0444\u043e\u0440\u043c\u044b \u0443\u0431\u0440\u0430\u0442\u044c \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u043e\u0435 \u043c\u0435\u043d\u044e, \u043a\u043d\u043e\u043f\u043a\u0438 \u0438 \u043f\u0440\u0438\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0443 windowstate \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 wsmaximize.\n3. \u041f\u0440\u0435\u0434\u0443\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0432\u044b\u0445\u043e\u0434 \u0438\u0437 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u044b, \u043c\u044b\u0448\u0438 \u0438 \u043f\u0440\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0435\u043d\u0438\u0438 \u043a\u0443\u0440\u0441\u043e\u0440\u0430 \u043c\u044b\u0448\u0438.\n4.\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441 \u043a\u043e\u0442\u043e\u0440\u044b\u043c \u0431\u044b\u043b \u0432\u044b\u0437\u0432\u0430\u043d \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u0438 \u0435\u0441\u043b\u0438 \u044d\u0442\u043e \/\u0441 - \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c \u043e\u043a\u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f,\n\u0430 \u0438\u043d\u0430\u0447\u0435 (\u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0442\u044c \u043d\u0430 \/s, \u0430 \u043c\u043e\u0436\u043d\u043e \u0438 \u043d\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0442\u044c) \u0441\u0430\u043c \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c, \/\u0440 - \u0434\u043b\u044f \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 \u043e\u043a\u043d\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043e\u043a \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430.\n5.\u0421\u043a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430.\n6.\u041f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u0442\u044c *.\u0415\u0425\u0415 \u0444\u0430\u0439\u043b \u0432 \u0444\u0430\u0439\u043b *.scr \u0438 \u0441\u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0435\u0433\u043e \u0432 \u043a\u0430\u0442\u0430\u043b\u043e\u0433 windowssystem.\n7.\u0423\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u043d\u043e\u0432\u044b\u0439 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u0432 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445 \u0441\u0438\u0441\u0442\u0435\u043c\u044b!\n\u041d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u043c\u043e\u0436\u0435\u0442 \u0441\u043e\u0441\u0442\u043e\u044f\u0442\u044c \u0438\u0437 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0441\u043b\u043e\u0432 \u0441 \u043f\u0440\u043e\u0431\u0435\u043b\u0430\u043c\u0438, \u043d\u0430 \u043b\u044e\u0431\u043e\u043c \u044f\u0437\u044b\u043a\u0435.\n\u041f\u0440\u0438 \u0440\u0430\u0431\u043e\u0442\u0435 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u044f\u0442\u0430\u0442\u044c \u043a\u0443\u0440\u0441\u043e\u0440 \u043c\u044b\u0448\u0438, \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0435 \u0437\u0430\u0431\u044b\u0432\u0430\u0439\u0442\u0435 \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0442\u044c \u0435\u0433\u043e \u043f\u043e\u0441\u043b\u0435 \u0432\u044b\u0445\u043e\u0434\u0430.\n\u0412\u0441\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0438 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0445\u0440\u0430\u043d\u0438\u0442\u0435 \u0432 \u0444\u0430\u0439\u043b\u0435 .ini, \u0442\u0430\u043a \u043a\u0430\u043a \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u0438 \u043e\u043a\u043d\u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u043d\u0435 \u0441\u0432\u044f\u0437\u0430\u043d\u044b \u0434\u0440\u0443\u0433 \u0441 \u0434\u0440\u0443\u0433\u043e\u043c\n\u043d\u0430\u043f\u0440\u044f\u043c\u0443\u044e.\n\u0421\u0442\u0430\u0440\u0430\u0439\u0442\u0435\u0441\u044c \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0441\u0432\u043e\u0439 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043c\u0435\u043d\u044c\u0448\u0435 \u0438 \u0431\u044b\u0441\u0442\u0440\u0435\u0435. \u0418\u043d\u0430\u0447\u0435 \u0432\u0430\u0448\u0438 \u0434\u043e\u043b\u0433\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0435 (\u0432 \u0444\u043e\u043d\u043e\u0432\u043e\u043c \u0440\u0435\u0436\u0438\u043c\u0435)\n\u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u0431\u0443\u0434\u0443\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0435\u0448\u0435 \u0434\u043e\u043b\u044c\u0448\u0435!\n{\u0432 \u0444\u0430\u0439\u043b\u0435 *.dpr}\n{$d scrnsave \u041f\u0440\u0438\u043c\u0435\u0440 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430}\n{\u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b}\nif (paramstr(1) = '\/\u0441') or (paramstr(1) = '\/\u0421') then\n{\u0441\u043a\u0440\u044b\u0442\u044c \u043a\u0443\u0440\u0441\u043e\u0440 \u043c\u044b\u0448\u0438}\nshowcursor(false);\n{\u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u043a\u0443\u0440\u0441\u043e\u0440 \u043c\u044b\u0448\u0438} showcursor(true);\n\u0411\u043e\u043b\u0435\u0435 \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u043e \u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430 \"\u043f\u043e \u0432\u0441\u0435\u043c \u043f\u0440\u0430\u0432\u0438\u043b\u0430\u043c\" screen saver in win95\n\u0413\u043b\u0430\u0432\u043d\u043e\u0435 \u043e \u0447\u0435\u043c \u0441\u0442\u043e\u0438\u0442 \u0443\u043f\u043e\u043c\u044f\u043d\u0443\u0442\u044c \u044d\u0442\u043e, \u0447\u0442\u043e \u0432\u0430\u0448 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0432 \u0444\u043e\u043d\u043e\u0432\u043e\u043c \u0440\u0435\u0436\u0438\u043c\u0435 \u0438 \u043e\u043d \u043d\u0435 \u0434\u043e\u043b\u0436\u0435\u043d \u043c\u0435\u0448\u0430\u0442\u044c \u0440\u0430\u0431\u043e\u0442\u0435 \u0434\u0440\u0443\u0433\u0438\u0445 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u044b\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c.\n\u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0441\u0430\u043c \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043c\u0435\u043d\u044c\u0448\u0435\u0433\u043e \u043e\u0431\u044a\u0435\u043c\u0430.\n\u0414\u043b\u044f \u0443\u043c\u0435\u043d\u044c\u0448\u0435\u043d\u0438\u044f \u043e\u0431\u044a\u0435\u043c\u0430 \u0444\u0430\u0439\u043b\u0430 \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u043d\u043e\u0439 \u043d\u0438\u0436\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435 \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0432\u0438\u0437\u0443\u0430\u043b\u044c\u043d\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b delphi,\n\u0432\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u0445\u043e\u0442\u044f \u0431\u044b \u043e\u0434\u043d\u043e\u0433\u043e \u0438\u0437 \u043d\u0438\u0445 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u0442 \u043a \u0443\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0438\u044e \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u0444\u0430\u0439\u043b\u0430 \u0441\u0432\u044b\u0448\u0435 200\u043a\u0431, \u0430 \u0442\u0430\u043a, \u043e\u043f\u0438\u0441\u0430\u043d\u043d\u0430\u044f \u043d\u0438\u0436\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u0438\u043c\u0435\u0435\u0442 \u0440\u0430\u0437\u043c\u0435\u0440 \u0432\u0441\u0435\u0433\u043e 20\u043a\u0431!!!\n\u0422\u0435\u0445\u043d\u0438\u0447\u0435\u0441\u043a\u0438, \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u043c \u0415\u0425\u0415 \u0444\u0430\u0439\u043b\u043e\u043c (\u0441 \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435\u043c .scr), \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0447\u0435\u0440\u0435\u0437 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u044b\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0442\u0440\u043e\u043a\u0438.\n\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0435\u0441\u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0445\u043e\u0447\u0435\u0442 \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0432\u0430\u0448\u0435\u0433\u043e \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f. windows \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0435\u0433\u043e \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c \"-\u0441\" \u0432 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435.\n\u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u043d\u0430\u0447\u0430\u0442\u044c \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0432\u0430\u0448\u0435\u0433\u043e \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u0441 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438:\nprocedure runscreensaver;\nvar s : string;\nbegin\ns := paramstr(1) ;\nif (length(s) > 1) then begin\ndelete(s,1,1); { delete first char - usaily \"\/\" or \"-\" }\ns[1] := upcase(s[1]) ;\nend;\nloadsettings; { load settings from registry }\nif (s = 'c') then runsettings\nelse if (s = '\u0420') then runpreview\nelse if (s = 'a') then runsetpassword\nelse runfullscreen;\nend;\n\u041f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043e\u043a\u043d\u043e \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0441\u043c\u043e\u0442\u0440\u0430 \u0438 \u043f\u043e\u043b\u043d\u043e\u044d\u043a\u0440\u0430\u043d\u043d\u043e\u0435 \u043e\u043a\u043d\u043e, \u0438\u0445 \u043b\u0443\u0447\u0448\u0435 \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0438\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0435\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441 \u043e\u043a\u043d\u0430. \u0421\u043b\u0435\u0434\u0443\u044f \u043f\u0440\u0430\u0432\u0438\u043b\u0430\u043c \u0445\u043e\u0440\u043e\u0448\u0435\u0433\u043e \u0442\u043e\u043d\u0430, \u043d\u0430\u043c \u0442\u0430\u043a\u0436\u0435 \u043d\u0443\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u043d\u043e\u0433\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u0435 \u043d\u0438\u0442\u0438. \u0414\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e, \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u043d\u0435 \u0434\u043e\u043b\u0436\u0435\u043d \u043f\u0435\u0440\u0435\u0441\u0442\u0430\u0432\u0430\u0442\u044c \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0434\u0430\u0436\u0435 \u0435\u0441\u043b\u0438 \u0447\u0442\u043e-\u0442\u043e \"\u0442\u044f\u0436\u0435\u043b\u043e\u0435\" \u0441\u043b\u0443\u0447\u0438\u043b\u043e\u0441\u044c, \u0438 \u0432\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u043d\u0430\u043c \u043d\u0435 \u043d\u0443\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0442\u0430\u0439\u043c\u0435\u0440. \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0434\u043b\u044f \u0437\u0430\u043f\u0443\u0441\u043a\u0430 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u043d\u0430 \u043f\u043e\u043b\u043d\u043e\u043c \u044d\u043a\u0440\u0430\u043d\u0435 - \u043f\u0440\u0438\u0431\u043b\u0438\u0437\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0442\u0430\u043a\u043e\u0432\u0430:\nprocedure runfullscreen;\nvar\nr : trect;\nmsg : tmsg;\ndummy : integer;\nforeground : hwnd;\nbegin\nispreview:= false; movecounter := 3;\n. foreground := getforegroundwindow;\nwhile (showcursor(false) > 0) do ;\ngetwindowrect(getdesktopwindow,r);\ncreatescreensaverwindow(r.right-r.left,r.bottom-r.top,0) ;\ncreatethread(nil,0,@previewthreadproc,nil,0,dummy) ;\nsystemparametersinfo(spi_screen3averrunning,1,cdummy,0);\nwhile getmessage(msg,0,0,0) do begin\ntranslatemessage(msg);\ndispatchmessage(msg);\nend;\nsystemparametersinfo(spi_screensaverrunning,0,@ dummy,0);\nshowcursor(true);\nsetforegroundwindow(foreground);\nend;\n\u0412\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u043c\u044b \u043f\u0440\u043e\u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043b\u0438 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 (\u043e\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0435 \u0434\u0430\u043b\u0435\u0435), \u0437\u0430\u0442\u0435\u043c \u043f\u0440\u044f\u0447\u0435\u043c \u043a\u0443\u0440\u0441\u043e\u0440 \u043c\u044b\u0448\u0438 \u0438 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043e\u043a\u043d\u043e \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430. \u0418\u043c\u0435\u0439\u0442\u0435 \u0432 \u0432\u0438\u0434\u0443, \u0447\u0442\u043e \u0432\u0430\u0436\u043d\u043e \u0443\u0432\u0435\u0434\u043e\u043c\u043b\u044f\u0442\u044c windows, \u0447\u0442\u043e \u044d\u0442\u043e - \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430 \u0447\u0435\u0440\u0435\u0437 systemparametersinfo (\u044d\u0442\u043e \u0432\u044b\u0432\u043e\u0434\u0438\u0442 \u0438\u0437 \u0441\u0442\u0440\u043e\u044f ctrl-alt-del \u0447\u0442\u043e\u0431\u044b \u043d\u0435\u043b\u044c\u0437\u044f \u0431\u044b\u043b\u043e \u0432\u0435\u0440\u043d\u0443\u0442\u044c\u0441\u044f \u0432 windows \u043d\u0435 \u0432\u0432\u0435\u0434\u044f \u043f\u0430\u0440\u043e\u043b\u044c). \u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043e\u043a\u043d\u0430 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f:\nfunction createscreensaverwindow(width,height : integer;\nparentwindow : hwnd) : hwnd;\nvar wc : twndclass;\nbegin\nwith wc do begin\nstyle := cs_parentdc;\nipfnwndproc := @previewwndproc;\ncbclsextra := 0; cbwndextra :== 0; hicon := 0; hcursor := 0;\nhbrbackground := 0; ipszmenuname := nil;\nipszclassname := 'mydelphiscreensaverclass';\nhinstance := system.hinstance;\nend;\nregisterclass(wc);\nif (parentwindow 0) then\nresult := createwindow('mydelphiscreensaverclass','mysaver', ^\" ws_child or ws_visible or ws_disabled,0,0, ^ width,height,parentwindow,0,hinstance,nil) else begin\nresult := createwindow('mydelphiscreensaverclass','mysaver', ws_visible or ws_popup,0,0,width,height, 0,0,hinstance,nil);\nsetwindowpos(result,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize or swp_noredraw);\nend;\npreviewwindow := result;\nend;\n\u0422\u0435\u043f\u0435\u0440\u044c \u043e\u043a\u043d\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0432\u044b\u0437\u043e\u0432\u044b api. \u042f \u0443\u0434\u0430\u043b\u0438\u043b \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u043e\u0448\u0438\u0431\u043a\u0438, \u043d\u043e \u043e\u0431\u044b\u0447\u043d\u043e \u0432\u0441\u0435 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442 \u0445\u043e\u0440\u043e\u0448\u043e, \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u0432 \u044d\u0442\u043e\u043c \u0442\u0438\u043f\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f.\n\u0422\u0435\u043f\u0435\u0440\u044c \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u043f\u043e\u0433\u0430\u0434\u0430\u0442\u044c, \u043a\u0430\u043a \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043c handle \u0440\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0433\u043e \u043e\u043a\u043d\u0430 \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0441\u043c\u043e\u0442\u0440\u0430 ? \u0412 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438, \u044d\u0442\u043e \u0441\u043e\u0432\u0441\u0435\u043c \u043f\u0440\u043e\u0441\u0442\u043e: windows \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u0435\u0440\u0435\u0434\u0430\u0435\u0442 handle \u0432 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435, \u043a\u043e\u0433\u0434\u0430 \u044d\u0442\u043e \u043d\u0443\u0436\u043d\u043e. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:\nprocedure runpreview;\nvar\nr : trect:\npreviewwindow : hwnd;\nmsg : tmsg;\ndummy : integer;\nbegin\nis preview := true;\n^ previewwindow := strtoint(paramstr(2));\n\"^3etnindowrect(previewwindow,r);\ncreatescreensaverwindow(r.right-r.left,r.bottom-r.top,previewwindow);\ncreatethread(nil,0,@previewthreadproc,nil,0,dummy);\nwhile getmessage(msg,0,0,0) do begin\ntranslatemessage(msg); dispatchmessage(msg);\nend;\n\u041a\u0430\u043a \u0412\u044b \u0432\u0438\u0434\u0438\u0442\u0435, window handle \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0432\u0442\u043e\u0440\u044b\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c (\u043f\u043e\u0441\u043b\u0435 \"-\u0440\").\n\u0427\u0442\u043e\u0431\u044b \"\u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c\" \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430 - \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u043d\u0438\u0442\u044c. \u042d\u0442\u043e \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u0441 \u0432\u044b\u0448\u0435\u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u043c createthread. \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043d\u0438\u0442\u0438 \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0442\u0430\u043a:\nfunction previewthreadproc(data : integer) : integer; stdcall;\nvar r : trect;\nbegin\nresult := 0; randomize:\ngetwindowrect[previewwindow,r);\nmaxx := r.right-r.left; maxy := r.bottom-r.top;\nshowwindow(previewwindow,sw_show); updatewindow(previewwindow);\nrepeat\ninvalidaterect(previewwindow,nil,false);\nsleep(30);\nuntil quitsaver;\npostmessage(previewwindow,wm_destroy,0,0);\nend;\n\u041d\u0438\u0442\u044c \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0442\u044c\u0441\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 \u043d\u0430\u0448\u0435\u043c \u043e\u043a\u043d\u0435, \u0441\u043f\u0438\u0442 \u043d\u0430 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0432\u0440\u0435\u043c\u044f, \u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u0442 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0441\u043d\u043e\u0432\u0430. a windows \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0441\u044b\u043b\u0430\u0442\u044c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 wm_paint \u043d\u0430 \u043d\u0430\u0448\u0435 \u043e\u043a\u043d\u043e (\u043d\u0435 \u0432 \u043d\u0438\u0442\u044c !). \u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043e\u043f\u0435\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u044d\u0442\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435\u043c, \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430:\nfunction previewwndproc(window : hwnd; msg,wparam, lparam : integer): integer; stdcall;\nbegin\nresult := 0;\ncase msg of\nwm_nccreate : result := 1;\nwm_destroy : postquitmessage(0);\nwm paint : drawsinglebox; ( paint something } wm keydown : quitsaver := askpassword;\nwm lbuttondown, wm mbuttondown, wm rbuttondown, wm mousemove :\nbegin\nif (not ispreview) then begin dec(movecounter);\nif (movecounter <= 0) then quitsaver := askpassword;\nend;\nelse result := defwindowproc(window,msg,wparam,lparam);\nend; ^ end;\n\u0415\u0441\u043b\u0438 \u043c\u044b\u0448\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f, \u043a\u043d\u043e\u043f\u043a\u0430 \u043d\u0430\u0436\u0430\u043b\u0430, \u043c\u044b \u0441\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c \u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u043f\u0430\u0440\u043e\u043b\u044c:\nfunction askpassword : boolean;\nvar\nkey : hkey;\nd1,d2 : integer; { two dummies } value : integer;\nlib : thandle;\nf : tvsspfunc;\n^_^eain\nresult := true;\nif (regopenkeyex(hkey_current_user,'control paneldesktop',0,\nkey read,key) = error success) then begin\nd2 := sizeof(value);\nif (regqueryvalueex(key,'screensaveusepassword',nil,@dl,\n@value,@d2) = error_success) then begin\nif (value 0) then begin\nlib := loadlibrary('password.cpl');\nif (lib > 32) then begin\n@f := getprocaddress(lib,'verifyscreensavepwd');\nshowcursor(true);\nif (@f nil) then result := f(previewwindow) ;\nshowcursor(false);\nmovecounter := 3; { reset again if password was wrong } freelibrary(lib) ;\nend;\nregclosekey(key) ;\nend;\n^\"^nd;\n\u042d\u0442\u043e \u0442\u0430\u043a\u0436\u0435 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 registry \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 api. \u0422\u0430\u043a\u0436\u0435 \u0438\u043c\u0435\u0439\u0442\u0435 \u0432 \u0432\u0438\u0434\u0443 \u043a\u0430\u043a \u043c\u044b \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u0430\u0440\u043e\u043b\u044f, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u044f loadlibrary. \u0417\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u0435 \u0442\u0438\u043f \u0444\u0443\u043d\u043a\u0446\u0438\u0438? tvssfunc \u041e\u041f\u0420\u0415\u0414\u0415\u041b\u0415\u041d \u043a\u0430\u043a:\ntype tvsspfunc = function(parent: hwnd): bool; stdcall;\n\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u0447\u0442\u0438 \u0432\u0441\u0435 \u0433\u043e\u0442\u043e\u0432\u043e, \u043a\u0440\u043e\u043c\u0435 \u0434\u0438\u0430\u043b\u043e\u0433\u0430 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438. \u042d\u0442\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0442\u043e:\nprocedure runsettings;\nvar result : integer;\nbegin\nresult := dialogbox(hinstance,'saversettingsdig',0,@settingsdlgproc);\nif (result = idok) then savesettings;\nend\n\u0422\u0440\u0443\u0434\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c -\u044d\u0442\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0434\u0438\u0430\u043b\u043e\u0433\u043e\u0432\u044b\u0439 \u0441\u0446\u0435\u043d\u0430\u0440\u0438\u0439 (\u0437\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u0435: \u043c\u044b \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0437\u0434\u0435\u0441\u044c delphi \u0444\u043e\u0440\u043c\u044b!).\n\u042f \u0441\u0434\u0435\u043b\u0430\u043b \u044d\u0442\u043e, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f 16-\u0431\u0438\u0442\u043e\u0432\u0443\u044e resource workshop (\u043e\u0441\u0442\u0430\u043b\u0441\u044f \u0435\u0449\u0435 \u043e\u0442 turbo pascal \u0434\u043b\u044f windows).\n\u042f \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043b \u0444\u0430\u0439\u043b \u043a\u0430\u043a \u0441\u0446\u0435\u043d\u0430\u0440\u0438\u0439 (\u0442\u0435\u043a\u0441\u0442), \u0438 \u0441\u043a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u044d\u0442\u043e \u0441 brcc32:\nsaversettingsdig dialog 70, 130, 166, 75 style ws_popup i ws_dlgframe | ws_sysmenu caption \"settings for boxes\" font 8, \"ms sans serif\"\nbegin\ndefpushbutton \"ok\", 5, 115, 6, 46, 16 pushbutton \"cancel\", 6, 115, 28, 46, 16\nctext \"box scolor:\", 3, 2, 30, 39, 9 combobox 4, 4, 40, 104, 50, cbs_dropdownlist | cbs_has strings ctext \"box &type:\", 1, 4, 3, 36, 9\nfunction previewwndproc(window : hwnd; msg,wparam, lparam : integer): integer; stdcall;\nbegin\nresult := 0;\ncase msg of\nwmjm \u0421 create : result := 1;\nwm_destroy : postquitmessage(0);\nwm_paint : drawsinglebox; { paint something } wm_keydown : quitsaver := askpassword;\nwin lbuttondown, win mbuttondown, win rbuttondown, win mousemove :\nbegin\nif (not ispreview) then begin dec(movecounter);\nif (movecounter <= 0) then quitsaver := askpassword;\nend;\nend ;\nelse result := defwindowproc(window,msg,wparam,lparam);\nend ;\nend;\n\u0415\u0441\u043b\u0438 \u043c\u044b\u0448\u044c \u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f, \u043a\u043d\u043e\u043f\u043a\u0430 \u043d\u0430\u0436\u0430\u043b\u0430, \u043c\u044b \u0441\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c \u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u043f\u0430\u0440\u043e\u043b\u044c:\nfunction askpassword : boolean;\nvar\nkey : hkey;\nd1,d2 : integer; { two dummies ) value : integer;\nlib : thandle;\nf : tvsspfunc;\ns^^egin\nresult := true;\nif (regopenkeyex(hkey_current_user,'control paneldesktop',0,\nkey read,key) = error success) then begin\nd2 := sizeof(value);\nif (regqueryvalueex(key,'screensaveusepassword',nil,@dl,\n@value,@d2) = error_success) then begin\nif (value 0) then begin\nlib := loadlibrary('password.cpl');\nif (lib > 32) then begin\n@f := getprocaddress(lib,'verifyscreensavepwd');\nshowcursor(true) ;\nif (@f nil) then result := f(previewwindow);\nshowcursor(false);\nmovecounter := 3; ( reset again if password was wrong } freelibrary(lib);\nend;\nregclosekey(key);\nend;\n^nd;\n\u042d\u0442\u043e \u0442\u0430\u043a\u0436\u0435 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 registry \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 api. \u0422\u0430\u043a\u0436\u0435 \u0438\u043c\u0435\u0439\u0442\u0435 \u0432 \u0432\u0438\u0434\u0443 \u043a\u0430\u043a \u043c\u044b \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u0430\u0440\u043e\u043b\u044f,\n\u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u044f loadlibrary. \u0417\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u0435 \u0442\u0438\u043f \u0444\u0443\u043d\u043a\u0446\u0438\u0438? tvssfunc \u041e\u041f\u0420\u0415\u0414\u0415\u041b\u0415\u041d \u043a\u0430\u043a:\ntype tvsspfunc = function(parent: hwnd) : bool; stdcall;\n\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u0447\u0442\u0438 \u0432\u0441\u0435 \u0433\u043e\u0442\u043e\u0432\u043e, \u043a\u0440\u043e\u043c\u0435 \u0434\u0438\u0430\u043b\u043e\u0433\u0430 \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0430\u0446\u0438\u0438. \u042d\u0442\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0442\u043e:\nprocedure runsettings;\nvar result : integer;\nbegin\nresult := dialogbox(hinstance,'saversettingsdig',0,@settingsdlgproc);\nif (result = idok) then savesettings;\nend;\n\u0422\u0440\u0443\u0434\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c -\u044d\u0442\u043e \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0434\u0438\u0430\u043b\u043e\u0433\u043e\u0432\u044b\u0439 \u0441\u0446\u0435\u043d\u0430\u0440\u0438\u0439 (\u0437\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u0435: \u043c\u044b \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0437\u0434\u0435\u0441\u044c delphi \u0444\u043e\u0440\u043c\u044b!).\n\u042f \u0441\u0434\u0435\u043b\u0430\u043b \u044d\u0442\u043e, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f 16-\u0431\u0438\u0442\u043e\u0432\u0443\u044e resource workshop (\u043e\u0441\u0442\u0430\u043b\u0441\u044f \u0435\u0449\u0435 \u043e\u0442 turbo pascal \u0434\u043b\u044f windows).\n\u042f \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043b \u0444\u0430\u0439\u043b \u043a\u0430\u043a \u0441\u0446\u0435\u043d\u0430\u0440\u0438\u0439 (\u0442\u0435\u043a\u0441\u0442), \u0438 \u0441\u043a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u044d\u0442\u043e \u0441 brcc32:\nsaversettingsdig dialog 70, 130, 166, 75 style ws_popup i ws_dlgframe | ws_sysmenu caption \"settings for boxes\" font 8, \"ms sans serif\"\nbegin\ndefpushbutton \"ok\", 5, 115, 6, 46, 16 pushbutton \"cancel\", 6, 115, 28, 46, 16\nctext \"box {.color:\", 3, 2, 30, 39, 9 combobox 4, 4, 40, 104, 50, cbs_dropdownlist | cbs_hasstrings ctext \"box &type:\", 1, 4, 3, 36, 9\nif (@f nil) then f('scrsave',strtoint(paramstr(2)),0,0);\nfreelibrary(lib);\nend;\n\u041c\u044b \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c (\u043d\u0435\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e) \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0443 mpr.dll, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0438\u043c\u0435\u0435\u0442 \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u0447\u0442\u043e\u0431\u044b \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u043f\u0430\u0440\u043e\u043b\u044c \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430, \u0442\u0430\u043a \u0447\u0442\u043e \u043d\u0430\u043c \u043d\u0435 \u043d\u0443\u0436\u043d\u043e \u0431\u0435\u0441\u043f\u043e\u043a\u043e\u0438\u0442\u044c\u0441\u044f \u043e\u0431 \u044d\u0442\u043e\u043c. tpcpafund \u041e\u041f\u0420\u0415\u0414\u0415\u041b\u0415\u041d \u043a\u0430\u043a:\ntype\ntpcpafunc = function(a : pchar; parent: hwnd; b,c : integer): integer; stdcall;\n(he \u0441\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0439\u0442\u0435 \u043c\u0435\u043d\u044f \u0447\u0442\u043e \u0437\u0430 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0412 \u0438 \u0421) \u0422\u0435\u043f\u0435\u0440\u044c \u0435\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u0430\u044f \u0432\u0435\u0449\u044c, \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c, - \u0441\u0430\u043c\u0430\u044f \u0441\u0442\u0440\u0430\u043d\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c: \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0433\u0440\u0430\u0444\u0438\u043a\u0438.\n\u042f \u043d\u0435 \u0432\u0435\u043b\u0438\u043a\u0438\u0439 \u0413\u0423\u0420\u0423 \u0433\u0440\u0430\u0444\u0438\u043a\u0438, \u0442\u0430\u043a \u0447\u0442\u043e \u0412\u044b \u043d\u0435 \u0443\u0432\u0438\u0434\u0438\u0442\u0435 \u0437\u0430\u0442\u0435\u043d\u044f\u044e\u0449\u0438\u0435 \u043c\u043d\u043e\u0433\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a\u0438, \u0432\u0440\u0430\u0449\u0430\u044e\u0449\u0438\u0435\u0441\u044f \u0432 \u0440\u0435\u0430\u043b\u044c\u043d\u043e\u043c \u0432\u0440\u0435\u043c\u0435\u043d\u0438.\n\u042f \u0442\u043e\u043b\u044c\u043a\u043e \u0441\u0434\u0435\u043b\u0430\u043b \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u044f\u0449\u0438\u043a\u0438.\nprocedure drawsinglebox;\nvar\npaintdc : hdc;\ninfo : tpaintstruct;\noldbrush : hbrush;\nx,y : integers-color : longint;\nbegin\npaintdc := beginpaint(previewwindow,info);\nx := random(maxx); y := random(maxy);\nif solidcolors then\ncolor := getnearestcolor(paintdc,rgb(random(255),random(255),random(255)))\nelse color := rgb(random(255),random(255),random(255));\noldbrush := selectobj ect(paintdc,createsolidbrush(color)) ;\nif roundedrectangles then\nroundrect(paintdc,x,y,x+random(maxx-x),y+random(maxy-y),20,20)\nelse rectangle(paintdc,x,y,x+random(maxx-x),y+random(maxy-y)) ;\ndeleteobject(selectobject(paintdc,oldbrush)) ;\nendpaint(previewwindow,info) ;\nend;\n\u0427\u0442\u043e\u0431\u044b \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u0442\u044c \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f, \u044f \u0434\u0430\u044e \u0412\u0430\u043c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0434\u0435\u0442\u0430\u043b\u0438. \u041f\u0435\u0440\u0432\u044b\u0435, \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:\nvar\nispreview boolean;\nmovecounter integer;\nquitsaver boolean;\npreviewwindow hwnd;\nmaxx,maxy integer;\nroundedrectangles boolean;\nsolidcolors boolean;\n\u0417\u0430\u0442\u0435\u043c \u0438\u0441\u0445\u043e\u0434\u043d\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043f\u0440\u043e\u0435\u043a\u0442\u0430 (.dpr). \u041a\u0440\u0430\u0441\u0438\u0432\u0430, \u0430!? program mysaverisgreat;\nuses\nwindows, messages. utility; { defines all routines ) ($r settings.res) begin\nrunscreensaver;\n^nd.\nox, \u0447\u0443\u0442\u044c \u043d\u0435 \u0437\u0430\u0431\u044b\u043b: \u0415\u0441\u043b\u0438, \u0412\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0435 sysutils \u0432 \u0432\u0430\u0448\u0435\u043c \u043f\u0440\u043e\u0435\u043a\u0442\u0435 (strtoint \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d \u0442\u0430\u043c)\n\u0412\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442\u0435 \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u0415\u0425\u0415 \u0447\u0435\u043c \u043e\u0431\u0435\u0449\u0430\u043d\u043d\u044b\u0439 20k. \u0415\u0441\u043b\u0438 \u0412\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0432\u0441\u0435 \u0436\u0435 \u0438\u043c\u0435\u0442\u044c20\u043a, \u0412\u044b \u043d\u0435 \u043c\u043e\u0436\u0435\u0442\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c sysutils \u0442\u0430\u043a,\n\u0438\u043b\u0438 \u0412\u0430\u043c \u043d\u0443\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0432\u0430\u0448\u0443 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u0443\u044e strtoint \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443. \u041a\u043e\u043d\u0435\u0446.\nuse val...;-)\n\u043f\u0435\u0440\u0435\u0432\u043e\u0434: \u0412\u043b\u0430\u0434\u0438\u043c\u0438\u0440\u043e\u0432 a.m.\n\u041e\u0442 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0447\u0438\u043a\u0430. \u0415\u0441\u043b\u0438 \u0432\u0441\u0435 \u0436\u0435 \u043e\u0447\u0435\u043d\u044c \u0442\u0440\u0443\u0434\u043d\u043e \u043e\u0431\u043e\u0439\u0442\u0438\u0441\u044c \u0431\u0435\u0437 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f delphi-\u0444\u043e\u0440\u043c, \u0442\u043e \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0441\u0442\u0443\u043f\u0438\u0442\u044c \u043a\u0430\u043a \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0441 \u0432\u0432\u043e\u0434\u043e\u043c \u043f\u0430\u0440\u043e\u043b\u044f: \u0444\u043e\u0440\u043c\u0443 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0432 \u0432\u0438\u0434\u0435 dll \u0438 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u0435\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0442\u044c \u043f\u0440\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438. \u0422.\u043e. \u0431\u0443\u0434\u0435\u0442 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0439 \u0438 \u0448\u0443\u0441\u0442\u0440\u044b\u0439 \u0444\u0430\u0439\u043b \u0441\u0430\u043c\u043e\u0433\u043e \u0445\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044f \u044d\u043a\u0440\u0430\u043d\u0430 \u0438 \u0434\u043e\u0432\u0435\u0441\u043a\u0430 dll \u0434\u043b\u044f \u043a\u043e\u043d\u0444\u0438\u0433\u0443\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438 \u043f\u0440\u043e\u0447\u0435\u0433\u043e (\u0442\u0430\u043c \u043e\u0431\u044a\u0435\u043c \u0438 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c \u0443\u0436\u0435 \u043d\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u043d\u044b).\n<\/div><\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u0425\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u044c \u044d\u043a\u0440\u0430\u043d\u0430<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,461],"tags":[1846,1870],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/600"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=600"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/600\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=600"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=600"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=600"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}