\u041e\u0441\u043d\u043e\u0432\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u044f\u0440\u043b\u044b\u043a\u0430 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435:
\n\u0412 \u0440\u0430\u0437\u0434\u0435\u043b Uses \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u043c\u043e\u0434\u0443\u043b\u0438 ShlObj, ActiveX, ComObj, StdCtrls;
\n private
\n procedure CreateShotCut(SourceFile, ShortCutName, SourceParams: String);
\n public
\n { Public declarations }
\n end;<\/p>\n
implementation<\/p>\n
procedure TForm1.CreateShotCut(SourceFile, ShortCutName, SourceParams: String);
\nvar
\nIUnk: IUnknown;
\nShellLink: IShellLink;
\nShellFile: IPersistFile;
\ntmpShortCutName: string;
\nWideStr: WideString;
\ni: Integer;
\nbegin
\nIUnk := CreateComObject(CLSID_ShellLink);
\nShellLink := IUnk as IShellLink;
\nShellFile := IUnk as IPersistFile;<\/p>\n
ShellLink.SetPath(PChar(SourceFile));
\nShellLink.SetArguments(PChar(SourceParams));
\nShellLink.SetWorkingDirectory(PChar(ExtractFilePath(SourceFile)));<\/p>\n
ShortCutName := ChangeFileExt(ShortCutName,’.lnk’);
\nif fileexists(ShortCutName) then
\nbegin
\nShortCutName := copy(ShortCutName,1,length(ShortCutName)-4);
\ni := 1;
\nrepeat
\ntmpShortCutName := ShortCutName +'(‘ + inttostr(i)+ ‘).lnk’;
\ninc(i);
\nuntil not fileexists(tmpShortCutName);
\nWideStr := tmpShortCutName;
\nend
\nelse
\nWideStr := ShortCutName;
\nShellFile.Save(PWChar(WideStr),False);
\nend;<\/p>\n
\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u044f\u0440\u043b\u044b\u043a\u0430 \u0432 \u0430\u0432\u0442\u043e\u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438 \u043d\u0430\u0434\u043e:
\n
\nprocedure TForm1.Button1Click(Sender: TObject);
\nvar
\nWorkTable:String;
\nFind:_WIN32_FIND_DATAA;
\nP:PItemIDList;
\nC:array [0..1000] of char;
\nbegin
\nif SHGetSpecialFolderLocation(Handle,CSIDL_PROGRAMS,p)=NOERROR then
\nbegin
\nSHGetPathFromIDList(P,C);
\nWorkTable:=StrPas(C)+’\\\u0410\u0432\u0442\u043e\u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0430’;
\nend;<\/p>\n
if not DirectoryExists(WorkTable) then
\nMkDir(WorkTable);
\n\/\/ \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u044f\u0440\u043b\u044b\u043a\u0430 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0432\u044b\u0448\u0435\u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b
\nCreateShotCut(‘\u041f\u0443\u0442\u044c_\u043a_\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\\\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.exe’, WorkTable+’\\’+ExtractFileName(‘\u041f\u0443\u0442\u044c_\u043a_\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\\\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.exe’), »);
\nend;<\/p>\n
\u0418\u043b\u0438 \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u044f\u0440\u043b\u044b\u043a\u0430 \u043d\u0430 \u0420\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435:<\/p>\n
procedure TForm1.Button2Click(Sender: TObject);
\nvar
\nWorkTable:String;
\nFind:_WIN32_FIND_DATAA;
\nP:PItemIDList;
\nC:array [0..1000] of char;
\nbegin
\nif SHGetSpecialFolderLocation(Handle,CSIDL_DESKTOP,p)=NOERROR then
\nbegin
\nSHGetPathFromIDList(P,C);
\nWorkTable:=StrPas(C);
\nend;
\nCreateShotCut(‘\u041f\u0443\u0442\u044c_\u043a_\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\\\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.exe’, WorkTable+’\\’+ExtractFileName(‘\u041f\u0443\u0442\u044c_\u043a_\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\\\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.exe’), »);
\nend;<\/p>\n
\u041a\u0441\u0442\u0430\u0442\u0438 \u0435\u0441\u043b\u0438 \u0432\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u044f\u0440\u043b\u044b\u043a \u0434\u0430\u043d\u043d\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0442\u043e \u0432\u043c\u0435\u0441\u0442\u043e ‘\u041f\u0443\u0442\u044c_\u043a_\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\\\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430.exe’ \u043d\u0430\u043f\u0438\u0448\u0438\u0442\u0435 Application.ExeName<\/p>\n","protected":false},"excerpt":{"rendered":"
\u041e\u0441\u043d\u043e\u0432\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u044f\u0440\u043b\u044b\u043a\u0430 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435: \u0412 \u0440\u0430\u0437\u0434\u0435\u043b Uses \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u043c\u043e\u0434\u0443\u043b\u0438 ShlObj, ActiveX, ComObj, StdCtrls; private procedure CreateShotCut(SourceFile, ShortCutName, SourceParams: String); public { Public declarations } end; implementation procedure TForm1.CreateShotCut(SourceFile, ShortCutName, SourceParams: String); var IUnk: IUnknown; ShellLink: IShellLink; ShellFile: IPersistFile; tmpShortCutName: string; WideStr: WideString; i: Integer; begin IUnk := CreateComObject(CLSID_ShellLink); ShellLink := IUnk as […]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,15],"tags":[304,303,302,301,305],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/15"}],"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\/5"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=15"}],"version-history":[{"count":3,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/15\/revisions"}],"predecessor-version":[{"id":219,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/15\/revisions\/219"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=15"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=15"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=15"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}