摘要: 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中间件 阅读(2153) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2014-04-02 10:12 delphi中间件 阅读(630) 评论(0) 推荐(0) 编辑