摘要：
procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String); var AnObj: IUnknown; ShellLink: IShellLink; AFile: IPersistFile; FileName: WideString; begin if UpperCase(ExtractF... 阅读全文
posted @ 2008-03-29 09:16
wannago
阅读(359)
评论(0)
推荐(0)
浙公网安备 33010602011771号