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

[Михаил Юрьевич]

Подскажите как создать иконку своего приложения на рабочем столе

[FaTaL]

// Добавляем ярлык
procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

[DeKot]

А что нельзя после компиляции левой мышью - контекстное меню и далее "Отправить на рабочий стол"?

[Михаил Юрьевич]

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

А что нельзя после компиляции левой мышью - контекстное меню и далее "Отправить на рабочий стол"?

А вы так делаете когда скачиваете программы?
Или мне help написать для пользователя.

[DeKot]

Все просто - в вопросе

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

всего лишь добавить программно.
Правильно заданный вопрос - половина ответа!

[radiohobbyt]

http://forum.codenet.ru/showthread.php?t=22681
что дал поиск в гугле...а вообще...как setup.exe делаешь каким нитьл инсталломейкером. вроде все они могут куда надо урлычки рассовывать=) (CreateInstall Free может и прост как валенок)

[uberchel]

Я, у себя в инсталляторе прописал так, там полностью все системные папки есть.


1) В активате пишем процедуру,открывающею все системные папки, через реестр и после она вносит всё в компонент TMEMO.

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms, Buttons, StdCtrls,
  ShlObj, ActiveX, ComObj, Registry, ExtCtrls,

procedure TForm1.FormActivate(Sender: TObject);
var reg : TRegistry; ts : TStrings; i : integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do
Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
ts.Free; reg.CloseKey; reg.free; end;

2) Сама процедура создания ярлыка.

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var SLink: IShellLink; PFile: IPersistFile; IObject: IUnknown;
begin IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin SetPath(PChar(PathObj)); end;
PFile.Save(PWChar(WideString(PathLink)), true); end;

3) Применение...

procedure TForm1.Button1Click(Sender: TObjects);
begin
CreateLink(paramStr(0),ExtractFilePath(Application.ExeName),Memo1.lines.strings[1]+'\Ярлык1.lnk','');
CreateLink(paramStr(0),ExtractFilePath(Application.ExeName),Memo1.lines.strings[2]+'\Ярлык2.lnk',''); DeskTop
...
CreateLink(paramStr(0),ExtractFilePath(Application.ExeName),Memo1.lines.strings[10]+'\Ярлык10.lnk','');
end;

Помог? если да, то жмите на весы с лева =)