2014年4月2日
取正在运行的DLL或EXE的路径
摘要： function GetSelfPath: string;var ModuleName: string; i: Integer;begin SetLength(ModuleName, 255); GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName)); i := LastDelimiter('\', ModuleName); Result := Copy(ModuleName, 1, i);end; 阅读全文
posted @ 2014-04-02 16:17 delphi中间件 阅读(2164) 评论(0) 推荐(0)
餐饮云端
摘要： 阅读全文
posted @ 2014-04-02 10:12 delphi中间件 阅读(647) 评论(0) 推荐(0)