| Вопрос: App.Path & App.EXEname of PB Application ??? | Добавлено: 27.07.06 13:25 |
Автор вопроса:  Серёга | Web-сайт: houselab.narod.ru | ICQ: 262809473 |
|
Господа, кто-нить знает, как в проге на PB определить папку в которой лежит экзешник и как зовут сам экзешник (типа App.Path и App.EXEname в VB)?
Спасибо за внимание :) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 27.07.06 16:59 |
|
Вот самопальные
Function APP_ExeName() As String
Dim App_ExeNameZ As Asciiz*%MAX_PATH If GetModuleFileName(0&,App_ExeNameZ,%MAX_PATH) Then Function=Left$(App_ExeNameZ,Len(App_ExeNameZ)) End If End Function Function APP_Path() As String Dim App_ExeNameZ As Asciiz*%MAX_PATH, App_ExeNameA As String Dim SlashPos As Long If GetModuleFileName(0&,App_ExeNameZ,255) Then App_ExeNameA=App_ExeNameZ If Len(App_ExeNameA)=0 Then Exit Function SlashPos=InStr(-1,App_ExeNameA,"\" 
If SlashPos=0 Then SlashPos=InStr(-1,App_ExeNameA,":"
If SlashPos=0 Then Exit Function APP_Path=Left$(App_ExeNameA,SlashPos) End If End Function |
||
|
Номер ответа: 2 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #2 | Добавлено: 27.07.06 20:04 |
|
Спасибо!
Работает!!! |
||
Страница: 1 |