咋样将指定文件夹里的文件发送到桌面快捷方式(代码)?
请大家帮帮忙,万分感谢!
请大家帮帮忙,万分感谢!
解决方案 »
- 弄一个公共单元,可是出错了。
- PChar 表示指针,它指向一个以0结尾的Char字符数组 ?? 这个不太理解,
- 请给个五子旗电脑下子的思路?
- Delphi6中用QuickReport制作的报表为什么在爱普生16000KIII上无法打印???
- 这个括号到底起什么作用的?
- 在Delphi中怎樣保存報表為pdf格式的文檔?
- 关于sendbuf(var buff;count:integer)参数问题
- 紧急求教,请各位大虾\高手指点一二,关于如何每天定时备份数据库中的表,使用timer控件,请说的详细一点,我只想知道如何使用不当TIMER控键,
- 难道安装了DELPHI6.0+SP1+SP2后,ADO就会出问题吗?
- IE 如何自动更新 Activex Form??
- 如何给DBGRID增加这样的列?
- 我安装了Ehlib3.0但是为什么不能运行它自带的DEMO文件?提示为'找不到EhlibBde.dcu'
procedure CreateShortcut(FileName : String; LinkFileName : String);
Var
LinkFile : IPersistFile;
ShellObject : IUnknown;
ShellLink : IShellLink;FilePath,
ShortcutPosition : String;WShortcutPosition : WideString;
P : PItemIDList;
C : array[0..1000] of Char;
begin
CoInitialize(nil);
Try
ShellObject := CreateComObject(CLSID_ShellLink);
LinkFile := ShellObject as IPersistFile;
ShellLink := ShellObject as IShellLink; FilePath := ExtractFilePath(Filename); ShellLink.SetPath(PChar(FileName));
ShellLink.SetWorkingDirectory(PChar(FilePath));
If SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, P) = NoError Then Begin
SHGetPathFromIDList(P, C);
ShortcutPosition := StrPas(C);
ShortcutPosition := ShortcutPosition + '\' + LinkFileName;
WShortcutPosition := ShortcutPosition;
LinkFile.Save(PWChar(WShortcutPosition), False);
End;
finally
CoUninitialize;
end;
end;
http://delphi.about.com/library/weekly/aa091499.htm