ExtractFileDir(Application.ExeName)这就是当前的路径了

解决方案 »

  1.   

    不对我问的不是在Delphi中取得当前路径而是在InstallShield中怎样取得当前路径
      

  2.   

    InstallShield脚本中有一个常量:SRCDIR 保存安装文件所在的路径,范例:szPath=SRCDIR ;
    szFileName="InstallAXFlash.exe"; 
    LaunchAppAndWait(szPath+szFileName,"",WAIT);
      

  3.   

    果然没错,谢谢TechnoFantasy,给分。
      

  4.   

    直接在 设置界面中设置就可以 <INSTALLDIR>
      

  5.   

    请问,我用Delphi作了一个动态连接库,其中有一个函数定义如下:   procedure  GetServer(var ret : pchar);stdcall;
    我在installShield中调用如下:
        STRING  szHostName;
        POINTER psvString;
                      
        szHostName   = "";      
        psvString = &szHostName;
                      
        szDLL = DLL_FILE;                                             
        szDLL = SRCDIR^DLL_FILE;  // "SetDll.dll";
        
        nResult = UseDLL (szDLL);
        if (nResult != 0) then         
             MessageBox ("启动DLL失败.\n\n退出程序.", INFORMATION);
             abort;
        endif;                   
        
        
        GetKDServer(psvString);//如果是网    
        if szHostName   = "" then
             MessageBox ("系统服务器不存在.\n\n退出程序.", INFORMATION);
             abort;
        endif;                 
                      
        if (UnUseDLL (DLL_FILE) < 0) then
             MessageBox("卸载DLL失败.\n\nDLL.", SEVERE);
        endif;      
     怎么返回的值为"",为什么不能返回值?要怎么才能返回值?