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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Avazart 8484 / 6151 / 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 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 03:17
	Ну да юникод... сам подправь... 0

@Avazart 8484 / 6151 / 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 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.07.2012, 04:08
	Перейди по второй ссылке и получай путь к Windows так же как ты ево получаешь к Desktop 0