[Electronic_Arts]

Как создать ярлык выбронного *.ехе файла в указанном месте? Исходник пожалуста. Заранее благодарю

[4kusNick]

Код:

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

// процедура создания ярлыков procedure CreateLink(sPathObj, sPathLink, sDesc: string); var  IObject: IUnknown;  SLink: IShellLink;  PFile: IPersistFile;    begin     // создаем COM объект "IShellLink"  IObject := CreateComObject(CLSID_ShellLink);   SLink := IObject as IShellLink;  PFile := IObject as IPersistFile;     // заполняем его данными   with SLink do   begin     //SetArguments(PChar(Param));     SetDescription(PChar(sDesc));     SetPath(PChar(sPathObj));  end;     // сохраняем по указанному пути   PFile.Save(PWChar(WideString(sPathLink)), FALSE); end;    //... //... begin //...   CreateLink('c:\program.exe','путь к ярлыку','подсказка'); //.. end;

[Electronic_Arts]

Не получается - может у кого нить есть исходник проги для создании ярлыков?

[4kusNick]

Дык а что не получается-то? Я могу исходник написать, но я юзал именно эту процедуру и все работало...

[Electronic_Arts]

Тогда если можно то скинь исходник или на мыло(electronic_arts@rambler.ru) или сюда как тебе угодно

[4kusNick]

Код:

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 37 38 39 40 41

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, ComCtrls, XPMan, ShellApi, ShlObj, ComObj, ActiveX; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure CreateLink(sPathObj, sPathLink, sDesc: 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(sDesc));     SetPath(PChar(sPathObj));  end;   PFile.Save(PWChar(WideString(sPathLink)), FALSE); end;   procedure TForm1.Button1Click(Sender: TObject); begin  CreateLink(Application.ExeName,ExtractFilePath(Application.ExeName) + '1.lnk','Description'); end; end.

[Electronic_Arts]

Все работает супер но
CreateLink(Application.ExeName,ExtractFilePath(App lication.ExeName) + '1.lnk','Description');
а как сделать что бы оно взяла путь к ЕХЕ файлу с edit1.text-a

[Electronic_Arts]

Попробывал сделать так но никаких ощибок не выдает но и ярлыков тож не создает
CreateLink(Edit1.text,ExtractFilePath(edit1.text) + '1.lnk','Description');

[4kusNick]

Выложи свой исходник, я его качну и поправлю все, а потом тебе отдам с пояснениями, почему у тебя там чего-то не работало.