delphi 中如何創建快捷方式
procedure TForm1.CreateUlr;
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
AnObj: IUnknown;
begin//快捷方式的初始化
AnObj := CreateComObject(CLSID_ShellLink);
ShLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
FileName := ParamStr(0);
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
ShLink.SetDescription('軟件作者:nciwp'+#13#10+' 公司:常州撥雲通訊'+#13#10+' 版本:V1.0');
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '/' + '常州撥雲通訊人事管理系統 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '/' + '常州撥雲通訊人事管理系統 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
end;
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
AnObj: IUnknown;
begin//快捷方式的初始化
AnObj := CreateComObject(CLSID_ShellLink);
ShLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
FileName := ParamStr(0);
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
ShLink.SetDescription('軟件作者:nciwp'+#13#10+' 公司:常州撥雲通訊'+#13#10+' 版本:V1.0');
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '/' + '常州撥雲通訊人事管理系統 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '/' + '常州撥雲通訊人事管理系統 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
end;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.