怎样取得当前程序文件(EXE文件)所在目录?急！在线等

在线等

解决方案 »

  1.   

    Extractfilepath(application.exename)
      

  2.   

    Extractfilepath(application.exename)
    bcb Extractfilepath(application->exename)
      

  3.   

    Extractfilepath(application.exename)
      

  4.   

    var oldpath:string;
    begin
      getdir(0,oldpath);
      showmessage(oldpath);
    end;
      

  5.   

    ExtractFilePath(ParamStr(0))
    或
    Extractfilepath(application.exename)
      

  6.   


    procedure TMainFrm.GetAppDir(var AppDir: string);
    var
      hModule:THandle;
      buf:array [0..MAX_PATH-1] of char;
    begin
      hModule:=GetModuleHandle(nil);
      GetModuleFileName(hmodule,buf,sizeof(buf));
      AppDir:=buf;
    end;
      

  7.   

    另一种办法: copy(application.exename,0,length(application.exename)-{在此是你的可执行文件名长度(包括扩展名));