|
|
|
|
应用程序中当前路径的两中写法、COM中当前路径取得 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
///////////// 应用程序当前路径 /////////////
ExtractFilePath(paramstr(0))
ExtractFilePath(application.ExeName)
///////////// COM中当前路径 /////////////
.... ....
TCustomMG = class(TTypedComObject, ICustomMG)
function TCustomMG.getXmlPath: string;
var
xmlPath:string;
S:array[0..255] of char;
begin
Result:='';
GetModuleFileName(hinstance,s,length(s));
xmlPath := extractfilepath(s);
result := xmlPath;
end;
|
|
相关文章：相关软件： |
|
本类阅读TOP10