Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

Имя ярлыка   Найти похожие ветки 

← →
Fred   (2010-04-30 15:01) [0]

Каким образом можно задать имя ярлыка программы или изменить это имя?
Имеется ввиду вот что. Есть файл proba.exe. При создании ярлыка он автоматически называется "proba.exe", а надо, чтобы назывался "Пробная программа". Чтобы каждый раз не переименовывать ярлык, когда вытаскиваешь его на стол пользователя.

---

← →
{RASkov} ©   (2010-04-30 15:49) [1]

> [0] Fred   (30.04.10 15:01)

Кто ярлык-то создает: ты(твоя программа) или ось(средствами ОС)?

---

← →
Игорь ©   (2010-04-30 17:57) [2]

> Fred   (30.04.10 15:01)  
> он автоматически называется "proba.exe"


По любому ни как он именем файла не обзаветься, либо .lnk, либо proba.exe копия

Вы что то путали

---

← →
['tr   (2010-04-30 19:42) [3]

Автор: Xavier Pacheco

unit Main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Label1: TLabel;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

uses ComObj, ActiveX, ShlObj, Registry;

const
 { Registry key where Folder information is kept }
 SFolderKey = "\Software\Microsoft\Windows\CurrentVersion\" +
   "Explorer\Shell Folders";

function GetFolderLocation(const FolderType: string): string;
{ Retrieves from registry path to folder indicated in FolderType }
begin
 with TRegistry.Create do
 try
   RootKey := HKEY_CURRENT_USER;
   if not OpenKey(SFolderKey, False) then
     { open key where shell folder information is kept. }
     raise ERegistryException.CreateFmt("Folder key "%s" not found",
       [SFolderKey]);
   { Get path for specified folder }
   Result := ReadString(FolderType);
   if Result = "" then
     raise ERegistryException.CreateFmt(""%s" item not found in registry",
       [FolderType]);
   CloseKey;
 finally
   Free;
 end;
end;

procedure MakeNotepad;
const
 // NOTE: Assumed location for Notepad:
 AppName = "c:\windows\notepad.exe";
var
 SL: IShellLink;
 PF: IPersistFile;
 LnkName: WideString;
begin
 OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
   IShellLink, SL));
 { IShellLink implementers are required to implement IPersistFile }
 PF := SL as IPersistFile;
 OleCheck(SL.SetPath(PChar(AppName))); // set link path to proper file
 { create a path location and filename for link file }
 LnkName := GetFolderLocation("Desktop") + "\" +
   ChangeFileExt(ExtractFileName(AppName), ".lnk");
 PF.Save(PWideChar(LnkName), True); // save link file
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MakeNotepad;
end;

end.

---

← →
oldman ©   (2010-05-05 10:42) [4]

> Каким образом можно задать имя ярлыка программы или изменить
> это имя?

> Чтобы каждый раз не переименовывать ярлык


Мдя...


> При создании ярлыка он автоматически называется "proba.exe",
>  а надо, чтобы назывался "Пробная программа".


Надо переименовать программу в "Пробная программа.ехе"

---

← →
Anatoly Podgoretsky ©   (2010-05-05 11:46) [5]

> oldman  (05.05.2010 10:42:04)  [4]

Мы не ищем легких путей.

---

Страницы: 1 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.069 c