Ver Mensaje Individual
  #1  
Antiguo 28-02-2005
Jan_polero Jan_polero is offline
Miembro
 
Registrado: may 2004
Posts: 62
Reputación: 21
Jan_polero Va por buen camino
problema con EnumWindows

Hola a todos. Estoy utilizando uno de los trucos de Trucomanía para obtener una lista de los programas en ejecución(el truco [287]).He visto ya muchos hilos que lo citan así que no creo que sea necesario ponerlo entero. Al intentar compilar me da un error con el mensaje 'Variable required' en la línea que llama a la función EnumWindows:
Código Delphi [-]
 
 function TFImportar.EstaEjecutandose(EXE:String):Boolean;
 var
   i: Integer;
 begin
   i:=0;
   ListaExes := TStringList.Create;
  //me situa el cursor en el 0
   EnumWindows(@ObtieneVentanas,0);
 ....
He probado todo tipo de conversiones de enteros, ya que ese parametro es un entero.Extraído de la ayuda(Specifies a 32-bit, application-defined value to be passed to the callback function). También probe a pasarle otros valores distintos de 0 como:
Código Delphi [-]
 EnumWindows(@ObtieneVentanas,Int(@EXE));
 EnumWindows(@ObtieneVentanas,LongInt(@EXE));

Pero siempre da el mismo error. También tengo añadida en las uses la TLHelp32. Uso delphi 5 bajo windows 2000. Espero me ayudeis es urgente. Gracias por adelantado.
Responder Con Cita