2012年7月31日
打开指定目录
摘要： uses ShellAPI;ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1); 阅读全文
posted @ 2012-07-31 13:27 ftwsnow 阅读(110) 评论(0) 推荐(0)
修改UDL文件
摘要： uses OleDB, ActiveX, ComObj;var DataInit: IDataInitialize; //定义接口 SouPath, SouStr, DesStr: POleStr; tmp, s1, s2: string;begin tmp := 'C:\Program Files\Common Files\System\Ole DB\Data Links\ShichADOConfig.UDL'; SouPath := StringToOleStr(tmp); DataInit := CreateComObject(CLSID_... 阅读全文
posted @ 2012-07-31 09:23 ftwsnow 阅读(475) 评论(0) 推荐(0)