2012 年 7月 31 日随笔档案 - ftwsnow

2012年7月31日

摘要： uses ShellAPI;ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1); 阅读全文

posted @ 2012-07-31 13:27 ftwsnow 阅读(101) 评论(0) 推荐(0) 编辑

摘要： 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 阅读(466) 评论(0) 推荐(0) 编辑