Создать ярлык на рабочем столе

Ddv122 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

Как создать ярлык на рабочем столе?В чем ошибка?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
void CreateLink(String PathObj,String WorkDir,WideString PathLink,
                     String Description,String Arguments,
                     int ShowCmd)
{
 HRESULT hres;
 IShellLink *NewLink;
 CoInitialize(NULL);
 hres = CoCreateInstance(CLSID_ShellLink, NULL,
           CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&NewLink);
 if(SUCCEEDED(hres))
   {
     NewLink->SetPath(PathObj.c_str());
     NewLink->SetWorkingDirectory(WorkDir.c_str());
     NewLink->SetDescription(Description.c_str());
     NewLink->SetArguments(Arguments.c_str());
     NewLink->SetShowCmd(ShowCmd);
     IPersistFile *ppf;
     NewLink->QueryInterface(IID_IPersistFile, (void**)&ppf);
     char StartPath[MAX_PATH];
  LPITEMIDLIST pidl;
  SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &pidl);
  SHGetPathFromIDList(pidl, StartPath);
     PathLink =StartPath;
     ppf->Save(PathLink, true);
     ShowMessage(PathLink);
   }
 CoUninitialize();
}
void __fastcall TMain::Button17Click(TObject *Sender)
{
CreateLink(Application->ExeName,ExtractFileDir(Application->ExeName),"ßðëûê.lnk",L"Îïèñàíèå","",SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

@Avazart · 03.07.2012, 02:25

Этот пример?

@Avazart · 03.07.2012, 02:31

Так он создает ярлык в той же папке что и exe.

C++
1
CreateLink(Application->ExeName,"C:\\ ....\\Desktop",L"Ярлык.lnk",L"Описание","",SW_SHOWNORMAL);

Ddv122 · 03.07.2012, 02:34 **[ТС]**

Сообщение от Ddv122

char StartPath[MAX_PATH];
LPITEMIDLIST pidl;
SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &pidl);
SHGetPathFromIDList(pidl, StartPath);
PathLink =StartPath;

как я понел на рабочем столе...я сам дописывал

@Avazart · 03.07.2012, 02:43

Я проверял этот код рабочий?

Ddv122 · 03.07.2012, 02:48 **[ТС]**

Avazart, в паке с програииой он создает а на рабочем столе не получилось у меня...

@Avazart · 03.07.2012, 02:59

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//---------------------------------------------------------------------------
void CreateLink(String PathObj,String WorkDir,String PathLink,
                     String Description,String Arguments,
                     int ShowCmd)
{
 HRESULT hres;
 IShellLink *NewLink;
 CoInitialize(NULL);
 hres = CoCreateInstance(CLSID_ShellLink, NULL,
           CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&NewLink);
 if(SUCCEEDED(hres))
   {
     NewLink->SetPath(PathObj.w_str());
     NewLink->SetWorkingDirectory(WorkDir.w_str());
     NewLink->SetDescription(Description.w_str());
     NewLink->SetArguments(Arguments.w_str());
     NewLink->SetShowCmd(ShowCmd);
     IPersistFile *ppf;
     NewLink->QueryInterface(IID_IPersistFile, (void**)&ppf);
     ppf->Save(PathLink.w_str(), true);
   }
 CoUninitialize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String Dir;
 wchar_t StartPath[MAX_PATH];
 LPITEMIDLIST pidl;
 SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &pidl);
 SHGetPathFromIDList(pidl, StartPath);
 Dir= StartPath;
 
CreateLink(Application->ExeName,ExtractFileDir(Application->ExeName),Dir+L"\\Ярлык.lnk",L"Описание","",SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

Ddv122 · 03.07.2012, 03:14 **[ТС]**

Avazart,

Code
1
2
3
4
5
6
7
[C++ Error] Unit1.cpp(836): E2316 'w_str' is not a member of 'AnsiString'
[C++ Error] Unit1.cpp(837): E2316 'w_str' is not a member of 'AnsiString'
[C++ Error] Unit1.cpp(838): E2316 'w_str' is not a member of 'AnsiString'
[C++ Error] Unit1.cpp(839): E2316 'w_str' is not a member of 'AnsiString'
[C++ Error] Unit1.cpp(843): E2316 'w_str' is not a member of 'AnsiString'
[C++ Error] Unit1.cpp(848): E2090 Qualifier 'TForm1' is not a class or namespace name
[C++ Error] Unit1.cpp(848): E2040 Declaration terminated incorrectly

ругается, w_str - WideString?

@Avazart · 03.07.2012, 03:17

Ну да юникод... сам подправь...

Ddv122 · 03.07.2012, 03:40 **[ТС]**

Avazart, Вот

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
void CreateLink(String PathObj,String WorkDir,WideString PathLink,
                     String Description,String Arguments,
                     int ShowCmd)
{
 HRESULT hres;
 IShellLink *NewLink;
 CoInitialize(NULL);
 hres = CoCreateInstance(CLSID_ShellLink, NULL,
           CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&NewLink);
 if(SUCCEEDED(hres))
   {
     NewLink->SetPath(PathObj.c_str());
     NewLink->SetWorkingDirectory(WorkDir.c_str());
     NewLink->SetDescription(Description.c_str());
     NewLink->SetArguments(Arguments.c_str());
     NewLink->SetShowCmd(ShowCmd);
     IPersistFile *ppf;
     NewLink->QueryInterface(IID_IPersistFile, (void**)&ppf);
     ppf->Save(PathLink, True);
   }
 CoUninitialize();
}
//---------------------------------------------------------------------------
void __fastcall TMain::Button17Click(TObject *Sender)
{
 String Dir;
 char StartPath[MAX_PATH];
 LPITEMIDLIST pidl;
 SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &pidl);
 SHGetPathFromIDList(pidl, StartPath);
 Dir= StartPath;
 
CreateLink(Application->ExeName,ExtractFileDir(Application->ExeName),Dir+L"\\ßðëûê.lnk",L"Îïèñàíèå","",SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

Добавлено через 22 минуты
Только вот почему

C++
1
CreateLink("%WINDIR%\\EXPLORER.EXE ")

Создается с кавычками "%WINDIR%\\EXPLORER.EXE а не %WINDIR%\\EXPLORER.EXE ?

@Avazart · 03.07.2012, 03:42

А так?

C++
1
CreateLink("%WINDIR%\\\\EXPLORER.EXE ")

Ddv122 · 03.07.2012, 03:47 **[ТС]**

Avazart, тоже
и так

C++
1
2
String command =("%WINDIR%\\EXPLORER.EXE ");
CreateLink(command +)

@Avazart · 03.07.2012, 04:00

Это ж папка Windows?

http://ru.wikipedia.org/wiki/Переменная_среды
http://msdn.microsoft.com/en-u... 53707.aspx

Ddv122 · 03.07.2012, 04:05 **[ТС]**

Avazart,

C++
1
CreateLink("%WINDIR%\\EXPLORER.EXE " + Edit1->Text,L"%WINDIR%\\ ",Dir+L"\\Запускать.lnk",L"Безопасный запуск","",SW_SHOWNORMAL);

Но вместо этого в свойсвах ярлыка%WINDIR%\EXPLORER.EXE F:\ в кавычках "%WINDIR%\EXPLORER.EXE F:\ " и ярлык не работает..

@Avazart · 03.07.2012, 04:08

Перейди по второй ссылке и получай путь к Windows так же как ты ево получаешь к Desktop

Ddv122 · 03.07.2012, 04:22 **[ТС]**

Avazart,

C++
1
2
3
4
5
6
7
 String win;
 char winPath[MAX_PATH];
 LPITEMIDLIST pid2;
 SHGetSpecialFolderLocation(NULL, CSIDL_WINDOWS, &pid2);
 SHGetPathFromIDList(pid2, winPath);
 win= winPath;
CreateLink(win +L"EXPLORER.EXE"+Edit1->Text,

хаха

Ddv122 · 03.07.2012, 12:41 **[ТС]**

Вот так

C++
1
CreateLink(win + "\\EXPLORER.EXE " + Edit1->Text.SubString(1,1) + "",win + "\\" ,Dir+L"\\Ôëýøêà.lnk",L"Îïèñàíèå","",SW_SHOWNORMAL);

Все ровно в кавычках....

@ivan.-94 · 03.07.2012, 14:04

Сообщение от Avazart

Так он создает ярлык в той же папке что и exe.

C++
1
CreateLink(Application->ExeName,"C:\\ ....\\Desktop",L"Ярлык.lnk",L"Описание","",SW_SHOWNORMAL);

Так что вам мешает потом переместить его на рабочий стол?

Копирование файлов

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// Для того чтобы скопировать файлы напишите следующий код:
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
SHFILEOPSTRUCT sh;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
sh.wFunc = toCopy ? FO_COPY : FO_MOVE;
sh.pFrom = slSourceDir.c_str();
sh.pTo = slTargetDir.c_str();
sh.hNameMappings = NULL;
sh.lpszProgressTitle = NULL;
return SHFileOperation ( &sh );
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//copy all from program files
if(!MoveFiles("c:\\program files\\*.*", "c:\\temp"))
ShowMessage("Ok");
else ShowMessage("No");
}
// В функции MoveFiles первый параметр что копировать,
// второй куда копировать
FAQ с сайта Borland X Portal

Удаление файла (Вариант 1)

C++
1
2
3
4
5
6
// Для удаления файла надо подключить к проекту Sysutils.hpp и напишите следующий код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString FileName="c:\\readme.txt";
if (DeleteFile(FileName)) Label1->Caption="true";
}

Удаление файла (Вариант 2)

C++
1
2
3
4
// Для удаления файла напишите следующий код:
#include <stdio.h>
String FileName="c:\\1.txt";
remove(FileName.c_str());

Ddv122 · 03.07.2012, 14:49 **[ТС]**

ivan.-94, хи
в толку?
Если 1 параметр

C++
1
"%WINDIR%\\EXPLORER.EXE " + Edit1->Text

передаётся не правильно?ярлык не рабочий, а с копированием он не как не заработает...
А создаётся он рабочем столе и так без проблем)

@ivan.-94 · 03.07.2012, 14:58

Сообщение от Ddv122

А создаётся он рабочем столе и так без проблем)

Так значит всё ок.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 02:43
	Я проверял этот код рабочий? 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	03.07.2012, 02:48 [ТС]
	Avazart, в паке с програииой он создает а на рабочем столе не получилось у меня... 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 03:17
	Ну да юникод... сам подправь... 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 04:00
	Это ж папка Windows? http://ru.wikipedia.org/wiki/Переменная_среды http://msdn.microsoft.com/en-u... 53707.aspx 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 04:08
	Перейди по второй ссылке и получай путь к Windows так же как ты ево получаешь к Desktop 0