Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
ВнизЯрлыки Найти похожие ветки
← →
makvell (2006-02-06 00:45) [0]Как программно создать ярлык из имеющегося *.ico файла, предварительно проверив, нет ли уже созданного?
Заранее спасибо!
← →
TUser © (2006-02-06 05:23) [1]ico - это картинка, вообще-то. Попобдробнее задачу опиши.
← →
Gydvin © (2006-02-06 06:30) [2]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure CreateLink(const PathObj, WorkDir, PathLink, Description, Arguments: string; ShowCmd: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses ShlObj, ActiveX, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:="c:\1.lnk";
if not fileexists(s) then
CreateLink("C:\Program Files\ICQLite\Plugins\MIB\Main\ICQWelcome2\welcome_icon.ico","C:\Program Files\ICQLite\Plugins\MIB\Main\ICQWelcome2\",s,"Ярлык!!!!","",1)
else showmessage ("Ярлык уже создан");
end;
procedure tform1.CreateLink(const PathObj, WorkDir, PathLink, Description, Arguments: string; ShowCmd: Integer);
var NewLink: IShellLink;
begin
NewLink := CreateComObject(CLSID_ShellLink) as IShellLink;
with NewLink do
begin
SetPath(PChar(PathObj));
SetWorkingDirectory(PChar(WorkDir));
SetDescription(PChar(Description));
SetArguments(PChar(Arguments));
SetShowCmd(ShowCmd);
end;
(NewLink as IPersistFile).Save(PWChar(WideString(PathLink)), false);
end;
end.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c