Нужна функция чтоб была истина если код исполняется как EXE и ложь если запуск из VB6 IDE

Формулировка задачи:

Делаю много поправок в серверной части, которая следит за моим сайтом, анализирует, подсчитает и вобщем-то дополняет работу PHP сервера на расстоянии имея полный доступ к FTP +MySQL. Когда делаю поправки в коде, как раз нужно использовать msgbox, inputbox и оповещения. А для исполняемого файла нужно полное молчание. Уже раньше это делал через VB.App... и сейчас не припомню что дальше. Буду благодарен за освежения памяти.

Решение задачи: «Нужна функция чтоб была истина если код исполняется как EXE и ложь если запуск из VB6 IDE»

textual
                            Листинг программы 
                        

                            Public Declare Function GetModuleFileNameA Lib "kernel32" _
 (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Public Function IsIDEApp() As Boolean
  Dim s As String * 255, i As Long
  i = GetModuleFileNameA(App.hInstance, s, 255)
  IsIDEApp = (0 = StrComp(Mid$(s, i - 6, 7), "Vb6.exe", vbTextCompare))
End Function

                        

Оцени полезность:

9 голосов , оценка 4.333 из 5

Похожие ответы