Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 12-03-2009
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 23
defcon1_es Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
Tal vez con algo de código quedaría más claro.
¿Estás ejecutando el IDE cuando haces las comprobaciones?
Hola Neftalí.

Enumero los pasos que realizo:

1) Abro Delphi 6 con los parámetros -hm -np
2) Abro el proyecto en cuestion y sólo me muestra la unit de constantes con la que cerré el proyecto antes.
3) Mediante la opción "View Forms" de la CnPack ya veo que hay instanciados 10 datamodules y el formulario principal (aparecen en rojo)
4) Sin hacer nada más en Delphi, ejecuto un exe que tengo preparado ya de antemano con la función FindWindow para que busque si hay una ventana de la clase del formulario principal, y me dice que si que hay.

¿Qué código quieres que te ponga?

La búsqueda de la ventana la hago asi:
Código Delphi [-]
function EsWindowsNT:Boolean;
var Versio: OSVERSIONINFO;
begin
  // versión de windows?
  Versio.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
  GetVersionEx(Versio);
  // Si no es W95, W98 o millenium
  Result := (Versio.dwPlatformID = VER_PLATFORM_WIN32_NT);
end;

// Esta es la función que comprueba si existe una ventana según su clase
function PodemosEmpezar: Boolean;
var Wdw: HWND;
begin
  if EsWindowsNT
  then begin
    Wdw := FindWindow('TFormPrincipalquedaelproblema', nil);
    if Wdw = 0 then
  // No hay instancia en ejecución
      Result := True
    else
  // Instancia en ejecución
      Result := False;
  end
  else Result := True;
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Mostrar una ventana "Inicializando" mientras se crean las Forms mancurnino Varios 6 08-05-2008 00:50:00
Como tener 2 o mas forms en un proyecto? Chriskb Varios 2 19-09-2007 22:58:51
Numeros Float...cambian solos BlueSteel Varios 1 05-07-2007 22:43:58
Visualizar Forms de otro proyecto karocs Varios 5 08-07-2005 17:41:40
Abrir proyecto de D3 en D5? superfer17 Varios 2 15-02-2005 12:37:01


La franja horaria es GMT +2. Ahora son las 09:42:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi