\u0420\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u0437\u0430\u0434\u0430\u0447\u0443 \u0431\u0443\u0434\u0435\u043c \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u043d\u0435\u043a\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f.<\/p>\n
\u041e\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u0435\u0434\u043c\u0435\u0442\u043d\u0443\u044e \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0438 \u043f\u043e\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0437\u0430\u0434\u0430\u0447\u0438:<\/p>\n
\u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0447\u0442\u043e\u0431\u044b \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435, \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0432 \u0441\u0435\u0431\u044f \u043a\u0430\u043a \u043f\u0440\u043e\u0442\u043e\u043a\u043e\u043b \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 Windows, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u043b\u043e \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 \u0441\u0441\u044b\u043b\u043a\u0443\u0443 \u0432\u0438\u0434\u0430 testproject:\\\\xxxxx \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u043b\u043e \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 (\u0435\u0441\u043b\u0438 \u043e\u043d\u043e \u043d\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e) \u0438 \u043f\u0435\u0440\u0435\u0434\u0430\u043b\u043e \u0435\u043c\u0443 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0441\u044b\u043b\u043a\u0438. \u0415\u0441\u043b\u0438 \u0436\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0443\u0436\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e, \u0442\u043e \u043d\u0430\u043c \u043d\u0435 \u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e\u0439 \u043a\u043e\u043f\u0438\u0438 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u0441\u043e\u043e\u0431\u0449\u0438\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0441\u044b\u043b\u043a\u0438.<\/p>\n
\u041d\u0443 \u0447\u0442\u043e\u0436, \u0437\u0430\u0434\u0430\u0447\u0443 \u043e\u043f\u0438\u0441\u0430\u043b\u0438, \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0438\u043c \u043a \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438.<\/p>\n
\u0414\u043b\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u044f \u0431\u0443\u0434\u0443 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c BDS 2006.<\/p>\n
\u0421\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043d\u043e\u0432\u044b\u0439 \u043f\u0440\u043e\u0435\u043a\u0442.<\/p>\n
\u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0432 \u0440\u0435\u0435\u0441\u0442\u0440\u0435, \u0447\u0442\u043e\u0431\u044b \u0441\u0438\u0441\u0442\u0435\u043c\u0430 \u0432\u043e\u0441\u043f\u0440\u0438\u043d\u0438\u043c\u0430\u043b\u0430 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u043d\u0430\u0448\u0438 \u0441\u0441\u044b\u043b\u043a\u0438, \u043f\u043e\u044d\u0442\u043e\u043c\u0443:
\n
\n\u0432 uses \u0433\u043b\u0430\u0432\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c registry<\/p>\n
\u0432 \u0441\u043e\u0431\u044b\u0442\u0438\u0438 onactivate \u0433\u043b\u0430\u0432\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b \u043f\u0438\u0448\u0435\u043c:<\/p>\n
procedure Tfstart.FormActivate(Sender: TObject);
\nvar reg:tregistry;
\nbegin
\nreg:=tregistry.Create;
\nreg.RootKey:=HKEY_Classes_Root;
\nif not(reg.KeyExists(‘testproject’)) then
\nbegin
\nreg.OpenKey(‘testproject’,true);
\nreg.WriteString(»,’URL:testproject Protocol’);
\nreg.WriteString(‘URL Protocol’,»);
\nreg.OpenKey(‘DefaultIcon’,true);
\nreg.WriteString(»,application.ExeName);
\nreg.CloseKey;
\nreg.OpenKey(‘testproject\\shell\\open\\command’,true);
\nreg.WriteString(»,application.ExeName+’ %1′);
\nreg.CloseKey;
\nend;
\nreg.Free;
\nend;<\/p>\n
\u0421\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043c\u044b \u0438\u043c\u0435\u0435\u043c \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0442\u043e\u043a\u043e\u043b \u043f\u043e\u0434 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435\u043c testproject.<\/p>\n
\u041f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u043c:<\/p>\n
\u041e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043b\u044e\u0431\u043e\u0439 \u0431\u0440\u0430\u0443\u0437\u0435\u0440 \u0438 \u0432 \u0430\u0434\u0440\u0435\u0441\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435 \u043d\u0430\u0431\u0438\u0440\u0430\u0435\u043c «testproject:\\\\eee» \u0438 \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u0442\u0441\u044f \u0432\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.<\/p>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0438\u043c. \u041d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043e\u043f\u0435\u0440\u0435\u0434\u0435\u043b\u044f\u0442\u044c \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u043b\u0438 \u043d\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0443\u0436\u0435 \u0438\u043b\u0438 \u043d\u0435\u0442. \u0414\u043b\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043f\u043e\u0434\u043e\u0431\u043d\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0438 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432, \u043d\u043e \u044f \u043f\u0440\u0435\u0434\u043f\u043e\u0447\u0438\u0442\u0430\u044e \u0441\u043f\u043e\u0441\u043e\u0431 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c mutex-\u043e\u0432. \u041d\u0435 \u0431\u0443\u0434\u0443 \u0441\u0435\u0439\u0447\u0430\u0441 \u0432\u0434\u0430\u0432\u0430\u0442\u044c \u0432 \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u043e\u0441\u0442\u0438 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043c\u044c\u044e\u0442\u0435\u043a\u0441\u043e\u0432 \u0438 \u0438\u0445 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f. \u0418\u0442\u0430\u043a, \u0437\u0430\u0445\u043e\u0434\u0438\u043c \u0432 \u043a\u043e\u0434 \u0441\u0430\u043c\u043e\u0433\u043e \u043d\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u043e\u0435\u043a\u0442\u0430 \u0438 \u043f\u0438\u0448\u0435\u043c \u0442\u0430\u043c:<\/p>\n
program testproject;<\/p>\n
uses {$R *.res} \u0418\u0442\u0430\u043a, \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0443 \u043d\u0430\u0441 \u0435\u0441\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044f, \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u044e\u0449\u0430\u044f true \u0435\u0441\u043b\u0438 \u043a\u043e\u043f\u0438\u044f \u043f\u0440\u043e\u0435\u043a\u0442\u0430 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u0438 false \u0435\u0441\u043b\u0438 \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043e\u043f\u0438\u044f.<\/p>\n \u0422\u0435\u043f\u0435\u0440\u044c \u0434\u0430\u043b\u0435\u0435: \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u043e\u043d\u044f\u0442\u044c \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e \u043b\u0438 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0441 \u0441\u044b\u043b\u043a\u0438 \u0438\u043b\u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u043a\u0442\u043e- \u0442\u043e \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u043b \u043d\u0430\u0448 exe.<\/p>\n \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u0442\u0441\u044f \u044d\u0442\u043e \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e: \u043f\u0440\u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0435 \u0441 \u0441\u044b\u043b\u043a\u0438 \u0432 \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0431\u0443\u0434\u0435\u0442 \u043f\u0435\u0440\u0435\u0434\u0430\u043d \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043a\u043e\u043c\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0441\u0434\u0435\u0440\u0436\u0430\u0442\u044c\u0441\u044f \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0441\u044b\u043b\u043a\u0438, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0434\u0435\u0441\u044c \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u0438\u043d \u0432\u0430\u0440\u0438\u0430\u043d\u0442: \u043a\u043e\u0433\u0434\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u0441 \u0441\u044b\u043b\u043a\u0438 \u0438 \u044d\u0442\u043e \u0443\u0436\u0435 \u043d\u0435 \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043e\u043f\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u0442.\u0435. \u043f\u0438\u0448\u0435\u043c \u0443\u0441\u043b\u043e\u0432\u0438\u0435:<\/p>\n if (check)and(paramcount>0) then<\/strong><\/p>\n begin<\/strong><\/p>\n end; <\/strong><\/p>\n \u0418\u0442\u0430\u043a, \u0447\u0442\u043e \u0436\u0435 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0434\u0435\u043b\u0430\u0442\u044c \u0435\u0441\u043b\u0438 \u0442\u0430\u043a\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c? \u041d\u0430\u043c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0432\u0435\u043d\u043d\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043a\u0430\u043a\u0438\u043c- \u0442\u043e \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u0441\u043e\u043e\u0431\u0449\u0438\u0442\u044c \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u043e\u043c\u0443 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0443 \u0442\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u043c \u043f\u0435\u0440\u0435\u0434\u0430\u043b\u0438. \u041e\u0442\u0441\u044e\u0434\u0430 \u0432\u0441\u0442\u0430\u0435\u0442 \u0432\u043e\u043f\u0440\u043e\u0441: \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u043d\u0430\u0442\u044c Handle \u043d\u0430\u0448\u0435\u0433\u043e \u0443\u0436\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f. \u0417\u0434\u0435\u0441\u044c \u0432\u0441\u0435 \u043f\u043e\u0434\u0432\u043b\u0430\u0441\u0442\u043d\u043e \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0432\u0430\u0448\u0435\u0439 \u0444\u0430\u043d\u0442\u0430\u0437\u0438\u0438, \u0442\u0430\u043a \u043a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0441\u043a\u043e\u043b\u044c \u0443\u0433\u043e\u0434\u043d\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432. \u042f \u0432\u044b\u0431\u0435\u0440\u0443 \u0434\u0430\u043b\u0435\u043a\u043e \u043d\u0435 \u043b\u0443\u0447\u0448\u0438\u0439, \u043d\u043e \u0434\u043b\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430: \u044f \u0431\u0443\u0434\u0443 \u0445\u0440\u0430\u043d\u0438\u0442\u044c handle \u0432 \u0440\u0435\u0435\u0441\u0442\u0440\u0435. \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043c\u043e\u0434\u0438\u0444\u0438\u0446\u0438\u0440\u0443\u0435\u043c \u0441\u043d\u0430\u0447\u0430\u043b\u0430 onactivate \u043d\u0430\u0448\u0435\u0439 \u0433\u043b\u0430\u0432\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b:<\/p>\n procedure Tfstart.FormActivate(Sender: TObject); \u0434\u0430\u043b\u0435\u0435 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a \u0441\u043e\u0431\u044b\u0442\u0438\u044f CloseQuery \u043d\u0430\u0448\u0435\u0439 \u0444\u043e\u0440\u043c\u044b:<\/p>\n procedure Tfstart.FormCloseQuery(Sender: TObject; var CanClose: Boolean); \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043f\u0440\u0438 \u0437\u0430\u043a\u0440\u044b\u0442\u0438\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043e\u0431\u043d\u0443\u043b\u044f\u0442\u044c \u043d\u0430\u0448 handle.<\/p>\n \u0442\u0435\u043f\u0435\u0440\u044c \u0432\u0435\u0440\u043d\u0435\u043c\u0441\u044f \u043a \u043a\u043e\u0434\u0443 \u043d\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u043e\u0435\u043a\u0442\u0430. \u0418\u0442\u0430\u043a, \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0435\u0441\u043b\u0438 \u044d\u0442\u043e \u043d\u0435 \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043e\u043f\u0438\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u043f\u0440\u043e\u0447\u0438\u0442\u0430\u0442\u044c handle \u0438 \u043e\u0442\u043f\u0440\u0430\u0432\u0438\u0442\u044c \u0435\u043c\u0443 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c\u0438 \u043a\u043e\u043c\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438. \u041f\u0440\u0438\u0432\u0435\u0434\u0443 \u0441\u0440\u0430\u0437\u0443 \u043a\u043e\u0434:<\/p>\n program testproject;<\/p>\n uses {$R *.res} {\u0427\u0438\u0442\u0430\u0435\u043c handle \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f}<\/p>\n reg:=tregistry.Create; {\u0421\u043e\u0441\u0442\u043e\u0432\u043b\u044f\u0435\u043c \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u0434\u0430\u043d\u043d\u044b\u0445 ParamCmd}<\/p>\n with ParamCmd do {\u041f\u043e\u0441\u044b\u043b\u0430\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435}<\/p>\n SendMessage(HForm, WM_COPYDATA,application.Handle,longint(@ParamCmd)); \u0412\u043e\u0442 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438 \u043f\u043e\u0447\u0442\u0438 \u0432\u0441\u0435. \u0421\u0435\u0439\u0447\u0430\u0441 \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0443\u043c\u0435\u0435\u0442 \u0443\u0436\u0435 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0442\u044c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0442\u044c \u0438\u0445\u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u043e\u0439 \u043a\u043e\u043f\u0438\u0438 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f.<\/p>\n \u041d\u043e \u043d\u0430\u043c \u0442\u0430\u043a \u0436\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e, \u0447\u0442\u043e\u0431\u044b \u043d\u0430\u0448\u0430 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u0430\u044f \u043a\u043e\u043f\u0438\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0430 \u044d\u0442\u0438 \u0434\u0430\u043d\u043d\u044b\u0435, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u043c \u043a\u043e\u0434 \u043c\u043e\u0434\u0443\u043b\u044f \u043d\u0430\u0448\u0435\u0439 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b:<\/p>\n unit Ustart;<\/p>\n interface<\/p>\n uses type var implementation<\/p>\n {$R *.dfm}<\/p>\n procedure Tfstart.FormActivate(Sender: TObject); procedure Tfstart.FormCloseQuery(Sender: TObject; var CanClose: Boolean); label1.Caption:=stext; \u0412\u043e\u0442 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438 \u0432\u0441\u0435 \u043c\u043e\u0436\u0435\u043c \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c:<\/p>\n \u0417\u0430\u043f\u0443\u0441\u0442\u0438\u043c \u043f\u0435\u0440\u0432\u0443\u044e \u043a\u043e\u043f\u0438\u044e \u043d\u0430\u0448\u0435\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0430 \u0437\u0430\u0442\u0435\u043c \u0432 \u0431\u0440\u0430\u0443\u0437\u0435\u0440\u0435 \u043d\u0430\u0431\u0435\u0440\u0435\u043c testproject:\\\\TEST \u0438 \u0443\u0432\u0438\u0434\u0438\u043c \u043a\u0430\u043a \u043d\u0430 \u043d\u0430\u0448\u0435\u0439 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u0435 \u043f\u043e\u043a\u0430\u0436\u0435\u0442\u0441\u044f \u044d\u0442\u043e\u0442 \u0442\u0435\u043a\u0441\u0442.<\/p>\n \u041d\u0430\u0434\u0435\u044e\u0441\u044c \u0447\u0442\u043e \u044d\u0442\u0430 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043f\u0440\u0438\u0433\u043e\u0434\u0438\u0442\u0441\u044f \u0432\u0430\u043c.<\/p>\n","protected":false},"excerpt":{"rendered":" \u0420\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u0437\u0430\u0434\u0430\u0447\u0443 \u0431\u0443\u0434\u0435\u043c \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u043d\u0435\u043a\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f. \u041e\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u0435\u0434\u043c\u0435\u0442\u043d\u0443\u044e \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0438 \u043f\u043e\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0437\u0430\u0434\u0430\u0447\u0438: \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0447\u0442\u043e\u0431\u044b \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435, \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0432 \u0441\u0435\u0431\u044f \u043a\u0430\u043a \u043f\u0440\u043e\u0442\u043e\u043a\u043e\u043b \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 Windows, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u043b\u043e \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 \u0441\u0441\u044b\u043b\u043a\u0443\u0443 \u0432\u0438\u0434\u0430 testproject:\\\\xxxxx \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u043b\u043e \u043d\u0430\u0448\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 (\u0435\u0441\u043b\u0438 \u043e\u043d\u043e \u043d\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e) \u0438 \u043f\u0435\u0440\u0435\u0434\u0430\u043b\u043e \u0435\u043c\u0443 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0441\u044b\u043b\u043a\u0438. \u0415\u0441\u043b\u0438 \u0436\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0443\u0436\u0435 \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e, \u0442\u043e \u043d\u0430\u043c \u043d\u0435 \u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u043e\u0439 \u043a\u043e\u043f\u0438\u0438 […]<\/p>\n","protected":false},"author":11,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,7],"tags":[103,217,259,254,255,193,257,189,256,431,87,253,251,252,99,258,89,162],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/8"}],"collection":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/users\/11"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=8"}],"version-history":[{"count":1,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/8\/revisions"}],"predecessor-version":[{"id":156,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/8\/revisions\/156"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nForms,windows<\/strong>,
\nUstart in ‘Ustart.pas’ {fstart};<\/p>\n
\nvar HM: THandle;
\nfunction Check: boolean;
\nbegin
\nHM := OpenMutex(MUTEX_ALL_ACCESS, false, ‘TestProjectMutex’);
\nResult := (HM <> 0);
\nif HM = 0 then HM := CreateMutex(nil, false, ‘TestProjectMutex’);
\nend;<\/strong>
\nbegin
\nApplication.Initialize;
\nApplication.CreateForm(Tfstart, fstart);
\nApplication.Run;
\nend.<\/p>\n
\nvar reg:tregistry;
\nbegin
\nreg:=tregistry.Create;
\nreg.RootKey:=HKEY_Classes_Root;
\nif not(reg.KeyExists(‘testproject’)) then
\nbegin
\nreg.OpenKey(‘testproject’,true);
\nreg.WriteString(»,’URL:testproject Protocol’);
\nreg.WriteString(‘URL Protocol’,»);
\nreg.OpenKey(‘DefaultIcon’,true);
\nreg.WriteString(»,application.ExeName);
\nreg.CloseKey;
\nreg.OpenKey(‘testproject\\shell\\open\\command’,true);
\nreg.WriteString(»,application.ExeName+’ %1′);
\nreg.CloseKey;
\nend;
\nreg.RootKey:=HKEY_current_user;
\nreg.OpenKey(‘software\\testproject’,true);
\nreg.WriteInteger(‘handle’,fstart.Handle);
\nreg.CloseKey;<\/strong>
\nreg.Free;
\nend;<\/p>\n
\nvar reg:tregistry;
\nbegin
\nreg:=tregistry.Create;
\nreg.RootKey:=HKEY_current_user;
\nreg.OpenKey(‘software\\testproject’,true);
\nreg.WriteInteger(‘handle’,0);
\nreg.CloseKey;
\nreg.Free;
\nend;<\/p>\n
\nForms,windows,registry,sysutils,messages<\/strong>,
\nUstart in ‘Ustart.pas’ {fstart};<\/p>\n
\nvar HM,HForm<\/strong>: THandle;
\nreg:tregistry;
\nParamCmd:TCopyDataStruct;<\/strong>
\nfunction Check: boolean;
\nbegin
\nHM := OpenMutex(MUTEX_ALL_ACCESS, false, ‘TestProjectMutex’);
\nResult := (HM <> 0);
\nif HM = 0 then HM := CreateMutex(nil, false, ‘TestProjectMutex’);
\nend;
\nbegin
\nif (check)and(paramcount>0) then
\nbegin<\/p>\n
\nreg.RootKey:=HKEY_current_user;
\nreg.OpenKey(‘software\\testproject’,true);
\nHForm:=reg.ReadInteger(‘handle’);
\nreg.CloseKey;
\nreg.Free;<\/p>\n
\nbegin
\ndwData := 0;
\ncbdata:=strlen(pchar(paramstr(1)))+1;
\nlpData:=pchar(paramstr(1));
\nend;<\/p>\n
\nExit;
\nend;
\nApplication.Initialize;
\nApplication.CreateForm(Tfstart, fstart);
\nApplication.Run;
\nend.<\/p>\n
\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\nDialogs,registry, StdCtrls;<\/p>\n
\nTfstart = class(TForm)
\nLabel1: TLabel;
\nprocedure FormActivate(Sender: TObject);
\nprocedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
\n protected
\nprocedure Getmessage(var msg: TWMCopyData); message WM_COPYDATA;<\/strong>
\nprivate
\n{ Private declarations }
\npublic
\n{ Public declarations }
\nend;<\/p>\n
\nfstart: Tfstart;<\/p>\n
\nvar reg:tregistry;
\nbegin
\nreg:=tregistry.Create;
\nreg.RootKey:=HKEY_Classes_Root;
\nif not(reg.KeyExists(‘testproject’)) then
\nbegin
\nreg.OpenKey(‘testproject’,true);
\nreg.WriteString(»,’URL:testproject Protocol’);
\nreg.WriteString(‘URL Protocol’,»);
\nreg.OpenKey(‘DefaultIcon’,true);
\nreg.WriteString(»,application.ExeName);
\nreg.CloseKey;
\nreg.OpenKey(‘testproject\\shell\\open\\command’,true);
\nreg.WriteString(»,application.ExeName+’ %1′);
\nreg.CloseKey;
\nend;
\nreg.RootKey:=HKEY_current_user;
\nreg.OpenKey(‘software\\testproject’,true);
\nreg.WriteInteger(‘handle’,fstart.Handle);
\nreg.CloseKey;
\nreg.Free;
\nif paramcount>0 then
\nlabel1.Caption:=paramstr(1); \/\/\u0415\u0441\u043b\u0438 \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043e\u043f\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0442\u043e \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0441\u0440\u0430\u0437\u0443 \u0441\u043c\u0435\u043b\u043e \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0442\u044c \u043d\u0430\u0448\u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b <\/strong>
\nend;<\/p>\n
\nvar reg:tregistry;
\nbegin
\nreg:=tregistry.Create;
\nreg.RootKey:=HKEY_current_user;
\nreg.OpenKey(‘software\\testproject’,true);
\nreg.WriteInteger(‘handle’,0);
\nreg.CloseKey;
\nreg.Free;
\nend;
\nprocedure tfstart.Getmessage(var msg: TWMCopyData);
\nvar
\nsText: array[0..99] of Char;
\nbegin
\nStrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); \/\/\u041f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u0435\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u0441\u0442\u0440\u043e\u043a\u0443
\n<\/strong><\/p>\n
\nend;<\/strong>
\nend. <\/strong><\/p>\n