FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour detectar ejecuci贸n Wine
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
detectar ejecuci贸n Wine
Posted: Fri Jun 24, 2011 01:20 PM
Hola,

驴Hay alguna forma de detectar si una aplicaci贸n est谩 siendo ejecutada en Linux o Mac bajo Wine?.

No vale obtener la versi贸n de windows y el registro ya que emula el de Windows XP.

Se me ha ocurrido una chapucilla:

Code (fw): Select all Collapse
function main()

 LOCAL cNotepad    := GetSysDir()+"\notepad.exe"
 LOCAL cContenido  := MemoRead( cNotepad )
 LOCAL cResultado  := AT("Wine", cContenido )
 LOCAL cDevuelve   := .F.


 IF !cResultado = 0
    cDevuelve := .T.
 ENDIF



 msgalert(cnotepad)
 msgalert(ccontenido)

 msgalert(cresultado)

msgalert(cdevuelve)


RETURN( cDevuelve )



驴Hay alguna alternativa?.

Muchas gracias :-)
Saludos,



Eduardo

Continue the discussion