ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот этот код вставляется в Дельфи, только вместо абсолютных путей делается их выборка из Едитов
Цитата:
Создание ярлыка
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShlObj,ActiveX;
......
var
Form1: TForm1;
const
IID_IPersistFile: TGUID = (
D1:$0000010B;D2:$0000;D3:$0000;D4 $C0,$00,$00,$00,$00,$00,$00,$46));
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
ShellLink: IShellLink;
PersistFile: IPersistFile;
FileNameW: array[0..MAX_PATH] of WideChar;
begin
CoInitialize(nil);
try
CoCreateInstance(CLSID_ShellLink, nil, 1,
IID_IShellLinkA, ShellLink);
try
ShellLink.QueryInterface(IID_IPersistFile, PersistFile);
try
ShellLink.SetPath(PChar('C:\Temp\AllPat3.exe'));
ShellLink.SetIconLocation(PChar('Explorer.exe'), -1);
MultiByteToWideChar(CP_ACP, 0, PChar('C:\Temp'+'\' + 'qq.lnk'), -1, FileNameW, MAX_PATH);
PersistFile.Save(FileNameW, True);
finally
// PersistFile.Release;
end;
finally
// ShellLink._Release;
end;
finally
// CoUninitialize;
end;
end;
end.
|
можно и без WideChar (кстати на 9х вроде без них надо, просто переделывается в лет, так что править не буду).
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
.
