Baanboard.com

Go Back   Baanboard.com > Forum > Baan SIGs > Code & Utilities

User login

Frontpage Sponsor

Main

Poll
For ERP LN feature pack upgrade, what method of install are you using?
Installation Wizard into existing VRC
37%
Installation Wizard into new VRC
39%
Manual into existing VRC
3%
Manual into new VRC
21%
Total votes: 38

Baanboard at LinkedIn


Reference Content

Reply
 
Thread Tools Display Modes
  #1  
Old 13th January 2007, 13:38
suhas-mahajan's Avatar
suhas-mahajan suhas-mahajan is offline
Guru
 
Join Date: Jan 2003
Location: Pune
Posts: 458
suhas-mahajan is an unknown quantity at this point
Baan: IV C4 IN3, IN5, IS5, LN - DB: Oracle 8.0.5, 9i, Informix - OS: Win NT, 2K, 2K3, AIX
No more than one BaaN on a PC...

Hi Friends,

Good News for Win$ows users...

We have developed a VB program, which will check BW program is running into memory, if it is this program not allow to take more than one BaaN licence on client PC's. Yes...you have to deploy it on every PC. By changing icon of this executable program to "B" (BaaN Icon).

Here is a code and VB project:

Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias _
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Private Sub Form_Load()
Dim temp As Integer
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim aldRunning As Boolean

aldRunning = False
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
Text1 = uProcess.szExeFile
temp = InStrRev(Text1, "\")
r = ProcessNext(hSnapShot, uProcess)
If LCase(Mid(Text1, temp + 1)) = "bw.exe" Then
aldRunning = True
MsgBox "BaaN is Already Running", vbInformation, "Thwart Applications"
Exit Do
End If
Loop
Call CloseHandle(hSnapShot)
If Not aldRunning Then
Dim appPath As String
appPath = regQuery_A_Key(HKEY_LOCAL_MACHINE, "Software\Baan\baan", "BSE")
Shell (appPath & "\bin\bw.exe"), vbNormalFocus
End If
Unload Me
End Sub
Attached Files
File Type: zip Thwart.zip (769 Bytes, 114 views)
Reply With Quote
  #2  
Old 13th January 2007, 13:39
suhas-mahajan's Avatar
suhas-mahajan suhas-mahajan is offline
Guru
 
Join Date: Jan 2003
Location: Pune
Posts: 458
suhas-mahajan is an unknown quantity at this point
Baan: IV C4 IN3, IN5, IS5, LN - DB: Oracle 8.0.5, 9i, Informix - OS: Win NT, 2K, 2K3, AIX
Hi..

This is with reference to - http://www.baanboard.com/baanboard/s...5&highlight=VB

regards,

-Suhas
Reply With Quote
Sponsored Links
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are Off
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
A Method of Sending Data to Baan jhargett AFS/DDC/OLE: Function servers 7 6th September 2013 21:23
BaanERP book J-Christ General Discussion & Chat 34 29th August 2013 12:51
BaaN - 114 , Baan Roles . Spain - Transacciona C. andres77 Jobs and Resumes 0 20th January 2006 01:07
Ervaren Baan specialist ICT Builder Jobs and Resumes 3 5th February 2005 07:37
Should Baan provide a level 2 database driver for SQL server 2000 on BaanIVc4? patvdv Polls and Surveys 6 28th March 2003 14:22


All times are GMT +2. The time now is 08:14.


©2001-2017 - Baanboard.com - Baanforums.com