Добавить комментарий

Delphi

Как создать ссылку на файл

uses
     ShlObj
    ;
...
procedure CreateLink(const Source, Args, WorkDir, ShortCutName: string);
var
  IObj: IUnknown;
begin
  IObj := CreateComObject(CLSID_ShellLink);

  with (IObj as IShellLink) do
  begin
    SetPath(PChar(Source));              // Файл, на который ссылка.
    SetArguments(PChar(Args));           // Параметры запуска.
    SetShowCmd(SW_SHOWNORMAL);           // Режим видимости.
    SetWorkingDirectory(PChar(WorkDir)); // Имя для ярлыка.
  end;
  (IObj as IPersistFile).Save(PWideChar(ShortCutName), False);
end;
Метки:

Filtered HTML

  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Допустимые HTML-теги: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Строки и абзацы переносятся автоматически.
  • Вы можете цитировать другие сообщения, используя тэг [quote]

Plain text

  • HTML-теги не обрабатываются и показываются как обычный текст
  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Строки и абзацы переносятся автоматически.