Cita:
Empezado por Neftali
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
Versio.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
GetVersionEx(Versio);
Result := (Versio.dwPlatformID = VER_PLATFORM_WIN32_NT);
end;
function PodemosEmpezar: Boolean;
var Wdw: HWND;
begin
if EsWindowsNT
then begin
Wdw := FindWindow('TFormPrincipalquedaelproblema', nil);
if Wdw = 0 then
Result := True
else
Result := False;
end
else Result := True;
end;