• 当前位置:首页>>PowerBuilder>>PowerBuilder脚本>>pb6中获取应用所在路径及更改当前路径
  • pb6中获取应用所在路径及更改当前路径
  • Get the execution path of the current application//应用路径

    [PB external function declaration]

    FUNCTION int GetModuleFileNameA(&

    ulong hinstModule, &

    REF string lpszPath, &

    ulong cchPath) LIBRARY "kernel32"

    [Powerscript]

    string ls_Path

    unsignedlong lul_handle

    ls_Path = space(1024)

    lul_handle = Handle(GetApplication())

    GetModuleFilenameA(lul_handle, ls_Path, 1024)

    MessageBox("Current application path", ls_path)

    //当前路径

    First declare FUNCTION long GetCurrentDirectoryA( long length , ref string path) &

    LIBRARY "Kernel32"

    and then

    long ll_ret

    string ls_path

    ls_path = Space(250)

    ll_ret = GetCurrentDirectoryA(250, ls_path)

    IF ll_ret > 0 THEN

    ls_path = Left(ls_path,ll_ret)

    MessageBoxBox("", ls_path)

    ELSE

    Messagebox("Error","Err GetCurrentDirectory " + String(ll_ret))

    END IF

    ///改变当前路径

    [FUNCTION DECLARATIONS]

    FUNCTION boolean SetCurrentDirectoryA(ref string lpsdir) &

    LIBRARY "kernel32.dll"

    [powerscript]

    String ls_Directory

    ls_Directory = "C:\MyNewDirectory\" lb_Return = SetCurrentDirectoryA(ls_Directory)



  • 上一篇:PB6.5中使用反三角函数?
    下一篇:在PB中实现串口编程