Power Builder - apertura de iconos mas de 1 vez

Hola, quisiera ver si alguien me puede ayudar con esto: como hago para que no ejecuten mas de 1 vez el icono de mi programa en una misma pc, no se me ocurre como hacerlo.Si alguno me puede dar una manito!!! gracias!!!!!

En tu bd agrega una tabla de sesiones, en el que guardes cada ingreso al sistema (id, nombre de equipo, fecha de ingreso, fecha de cierre, estado de la sesión). Al momento de abrir tu aplicación y conectarte a la BD debes validar que el equipo no tenga una sesión activa.

Jorge, muchas gracias nuevamente!!!!!!!!!!!!!!!

Hola Jorge, una preguntita mas, como obtengo el nombre del equipo? Muchas gracias!!!!!!!

Hola, una forma de obtener es leyendo el registro. Puedes implementar la siguiente función (tu decide donde lo implementas)

JORGE, UN MILLON DE GRACIAS!!!!! ahora en un rato lo voy a probar!!!!!!

Hola Jorge, ya implementé la tabla de sesiones y está funcionando perfecto (lo que hice fue una tabla de sesiones en la que, al abrir el sistema verifica que no haya un registro con el nombre de la pc en esta tabla y si es asi agrega un registro a esta tabla con el nombre del equipo y la fecha de ingreso y abre el sistema, y cuando se cierra el sistema se borra el registro correspondiente a esa pc).
Pero ahora tuvimos un problema y algunos equipos se cerraron de forma inesperada, entonces me quedó la sesión abierta en la tabla de sesiones y ya no pudieron volver a ingresar estos usuarios hasta que yo no les borré los registros de sesiones activas.
Como podría hacer para solucionar este problema?
Muchas gracias!!!!

Yo he implementado una solucion usando mutex y no tengo problema.
Este es el codigo que yo uso:

//Variable Externas
FUNCTION ulong CreateMutexA(ulong lpMutexAttributes, boolean bInitialOwner, ref string lpName) LIBRARY "KERNEL32.DLL"

FUNCTION ulong GetLastError () LIBRARY "KERNEL32.DLL"

FUNCTION ulong CloseHandle(ulong hMutex) LIBRARY "KERNEL32.DLL"

Y este es el codigo en el open del objeto aplicacion

String ls_Name
Uint rc2
ulong rc1
Boolean lb_inherit

lb_inherit = FALSE
ls_Name = "LEGALES" //Nobre a registrar en windows -Regularmente el nombre del ejecutable
rc1 = CreateMutexA(0, lb_inherit, ls_Name)
rc2 = GetLastError()

IF rc2 = 183 THEN // Mutex existe por lo qu ela aplicacion LEGALES esta actualmente en ejecucion
MessageBox("Aviso", "La aplicación está en ejecución")
CloseHandle(rc1)
HALT //cierro la aplciacion
ELSE
//Continua coorriendo la aplicacion
Open (w_conexion_sybase)
END IF



Y eso es todo. A mi me funciona a la perfecion en PB 12.5 .net y en WIN 7 PRO