如何替一个文件建立一个快捷方式？(*.lnk)(123分)

3h · 1999-01-06

如题，如何替一个文件建立一个快捷方式？(*.lnk) 我快急狂了，还是找不到这个函数，各位大侠帮帮忙。

Larry · 1999-01-06

我这里有一个范例程序，不过有些早了，你可以把TRegIniFile替换为TRegistry uses ShellApi,ComObj,Ole; procedure TForm1.Button1Click(Sender: TObject); var   MyObject  : IUnknown;   MySLink   : IShellLink;   MyPFile   : IPersistFile;   FileName  : String;   Directory : String;   WFileName : WideString;   MyReg     : TRegIniFile; begin   MyObject := CreateComObject(CLSID_ShellLink);   MySLink := MyObject as IShellLink;   MyPFile := MyObject as IPersistFile;   FileName := 'NOTEPAD.EXE';   with MySLink do begin     SetArguments('C:/AUTOEXEC.BAT');     SetPath(PChar(FileName));     SetWorkingDirectory(PChar(ExtractFilePath(FileName)));   end;   MyReg := TRegIniFile.Create(     'Software/MicroSoft/Windows/CurrentVersion/Explorer'); // Use the next line of code to put the shortcut on your desktop   Directory := MyReg.ReadString('Shell Folders','Desktop',''); // Use the next three lines to put the shortcut on your start menu //  Directory := MyReg.ReadString('Shell Folders','Start Menu','')+ //      '/Whoa!'; //  CreateDir(Directory);   WFileName := Directory+'/FooBar.lnk';   MyPFile.Save(PWChar(WFileName),False);   MyReg.Free; end; 另外可以用DDE不过有些不保险。

patlovecl · 1999-01-06

去 www.youseful.com 下载一个 youseful试试

delphi fan2 · 1999-01-06

看一看《delphi 3从入门到精通》李维写的！

cHengyAng · 1999-01-06

要产生程序组, 常用的方法是与程序管理员进行 DDE 对话,呼叫程式管理员事先预备 好的宏集, 关於这些, 以下有一个例子您可以参考看看: 步骤： 1. File | New Project 2. 在 Form 中安置一个 TDDEClientConv 控件 3. 对於 DdeClientConv1, 在 Object Inspector 中点一下 DdeService 这个属性,    然后点一下在其右方'...'的按钮, 然后在 DdeService 这栏填入 ProgMan，在    DdeTopic 这栏填入 Progman 。 4. 对于 DdeClientConv1 将 ConnectMode 设为 ddeManual 5. 在 Form1 中安排一个 TButton 6. 在 Button1 的 OnClick 事件:    procedure TForm1.Button1Click(Sender: TObject);    var       sMacro: String;       szMacro: Array[0..254] of Char;       sGroupDesc, sGroupName: String;       sProgDesc: String;       sProgIcon: String;    begin       // 打开对话通路       if not DdeClientConv1.OpenLink then begin           ShowMessage('无法建立 DDE 连结');           Exit;       end;       // 建立组群       sGroupDesc := '纯测试的 Group';       sGroupName := 'Test';       // 组成宏指令       sMacro := '[CreateGroup(' + sGroupDesc + ',' + sGroupName + ')]';       StrPCopy(szMacro, sMacro);                   // 转成 Null-Term. 字串       DdeClientConv1.ExecuteMacro(szMacro, False); // 执行宏指令       // 建立 Icon 图像       sProgIcon := 'c:/windows/notepad.exe';       sProgDesc := '记事本';       sMacro := '[AddItem(' + sProgIcon + ',' + sProgDesc + ')]';       StrPCopy(szMacro, sMacro);                   // 转成 Null-Term. 字串       DdeClientConv1.ExecuteMacro(szMacro, False);       // 关闭 DDE 对话       DdeClientConv1.CloseLink;    end; 7. 保存后, 执行看看吧! (这是我从别的地方学到的经验,全部原文摘抄,希望对你有用)

jiangtao · 1999-01-07

Borland Tech Doc #3234 This sample project demonstrates an easy way to add shortcuts to your Windows 95 or Windows NT 4.0 desktop or start menu.    1.Launch Delphi 3.    2.2. In a new project, drop a TButton on the form (make sure it's called Button1). Then double click on Button1. Now      you can go ahead and directly replace the code for Unit1 with the code for Unit1 below. The program will set up a shortcut either (see the code) on the desktop or on the start menu. The shortcut will be called FooBar and it will open up your AUTOEXEC.BAT in NOTEPAD when executed. It will read the value of the "Desktop" and "Start Menu" strings from the registry key named (under HKEY_CURRENT_USER):  Software/MicroSoft/Windows/CurrentVersion/Explorer/Shell Folders -------------- The Unit1 unit -------------- unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} uses   ShlObj, ActiveX, ComObj, Registry; procedure TForm1.Button1Click(Sender: TObject); var   MyObject  : IUnknown;   MySLink   : IShellLink;   MyPFile   : IPersistFile;   FileName  : String;   Directory : String;   WFileName : WideString;   MyReg     : TRegIniFile; begin   MyObject := CreateComObject(CLSID_ShellLink);   MySLink := MyObject as IShellLink;   MyPFile := MyObject as IPersistFile;   FileName := 'NOTEPAD.EXE';   with MySLink do begin     SetArguments('C:/AUTOEXEC.BAT');     SetPath(PChar(FileName));     SetWorkingDirectory(PChar(ExtractFilePath(FileName)));   end;   MyReg := TRegIniFile.Create(     'Software/MicroSoft/Windows/CurrentVersion/Explorer'); // Use the next line of code to put the shortcut on your desktop   Directory := MyReg.ReadString('Shell Folders','Desktop',''); // Use the next three lines to put the shortcut on your start menu //  Directory := MyReg.ReadString('Shell Folders','Start Menu','')+ //      '/Whoa!'; //  CreateDir(Directory);   WFileName := Directory+'/FooBar.lnk';   MyPFile.Save(PWChar(WFileName),False);   MyReg.Free; end; end.

aimingoo · 1999-01-09

好说，这是我用的通用过程： 以下程序段来自我的单元myUnit.pas ================================== procedure MakeLink(proName,lnkName,Description : String); var   WorkDir, DestName: String;   aReg   : TRegistry;   aObj   : IUnknown;   MyLink : IShellLink;   MyPFile: IPersistFile;   WFileName: WideString; begin     //操作注册表:     //键'Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders'     //下的Programs串值指定了Windows启动目录的位置.   aReg := TRegistry.create;   aReg.RootKey:=HKey_Current_User;   aReg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders', False);   DestName := aReg.ReadString('Programs') + '/'+lnkName;   aReg.Closekey;   aObj := CreateComObject(CLSID_ShellLink);   MyLink := aObj as IShellLink;   MyPFile := aObj as IPersistFile;   WorkDir:= ExtractFilePath(proName);   with MyLink do //操作IShellLink类     begin         //设置显示窗口的类型       SetShowCmd(SW_NORMAL);         { 对DOS程序,一般建议使用SetShowCmd(SW_SHOWMAXIMIZED); }         // 设置命令行参数       SetArguments('');         // 设置描述       SetDescription(pChar(Description));         // 设置程序名称[全路径,如果在系统Path中,可直接为程文件名]       SetPath(pChar(proName));         // 设置工作目录       SetWorkingDirectory(pChar(WorkDir));     end;     //取.LNK文件的位置   CreateDir(ExtractFilePath(DestName));     //建立快捷方式: .LNK文件   WFileName := DestName;  //将一个String赋给WideString，转换过程由Delphi自动完成   MyPFile.Save(PWChar(WFileName), False); end; ===========     上面的这个.lnk建在win95的start按钮的菜单中，至于要建在其它指 定目录中，修改DestName := aReg.ReadString('Programs') + '/'+lnkName; 一行就成了。 =========== 下面是测试程序，一看就明白了： program test; uses myUnit; begin   MakeLink('c:/dos/edit.com','Edit.lnk','这是DOS的Edit.COM程序的测试');   MakeLink('c:/dos/scandisk.bat','这是另一个相关测试.lnk','c:/dos/scandisk.bat');   MakeLink('c:/dos/scandisk.bat','Aimingoo的程序/这是另一个相关测试.lnk','这样可建立一个文件夹!!!');    //如果你要将这个快捷方式放在桌面上,只需要将这个.LNK文件复制到相Windows的DeskTop目录中就可以了.    //DeskTop目录的位置可参考MakeLink()函数取得   Writeln('Now, You Press Start Button(Win95),Three Links Already Maked!!!'); end.

3h · 1999-01-11

基本上上朋友们的答案都是差不多的，不过以LARRY为主在的三个朋友是以API来实现，而CHENGANG是以DDE实现。答案我接受了，谢谢大家。

3h · 1999-01-11

多人接受答案了。

如何替一个文件建立一个快捷方式？(*.lnk)(123分)

3h

Unregistered / Unconfirmed

Larry

Unregistered / Unconfirmed

patlovecl

Unregistered / Unconfirmed

delphi fan2

Unregistered / Unconfirmed

cHengyAng

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

aimingoo

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Similar threads