Geo_sts Posted January 21, 2011 Report Share Posted January 21, 2011 Bom dia amigos, lembro q um dia eu vi alguem querendo saber um comando pr ver se o EXE esta em USO.. não digo o EXE que esta aberto.. EX. verificar se a calculadora esta aberta ... ai vai a funçao function G_open(handle) Handle :=IsModuleLoaded('calc.exe') // Nome da janela principal do aplicativo if Handle = 0 Msginfo("ARQUIVO ESTA FECHADO","ATEÇÃO") else Msginfo("ARQUIVO ESTA ABERTO","ATEÇÃO") endif DLL32 function IsModuleLoaded(WindowName AS STRING) AS _INT PASCAL LIB "psvince.dll" a DLL encontra-se em www.drogaredeinformatica.com/prg/psvince.zip flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.5 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted January 21, 2011 Author Report Share Posted January 21, 2011 Bom dia amigos, lembro q um dia eu vi alguem querendo saber um comando pr ver se o EXE esta em USO.. não digo o EXE que esta aberto.. EX. verificar se a calculadora esta aberta ... ai vai a funçao function G_open(handle) Handle :=IsModuleLoaded('calc.exe') // Nome da janela principal do aplicativo if Handle = 0 Msginfo("ARQUIVO ESTA FECHADO","ATEÇÃO") else Msginfo("ARQUIVO ESTA ABERTO","ATEÇÃO") endif DLL32 function IsModuleLoaded(WindowName AS STRING) AS _INT PASCAL LIB "psvince.dll" a DLL encontra-se em www.drogaredeinformatica.com/prg/psvince.zip flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.5 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted January 23, 2011 Report Share Posted January 23, 2011 Funciona beleza pura. Obrigado Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted January 26, 2011 Report Share Posted January 26, 2011 Não funcionou com 64 bit Edvaldo Quote Link to comment Share on other sites More sharing options...
leandroptu Posted January 27, 2011 Report Share Posted January 27, 2011 TENTE ASSIM If isExeRunning("NOME DA BARRA DE TITULO") oWnd:=FindWindow(0,"NOME DA BARRA DE TITULO") If !(oWnd==0) // PROGRAMA em execusão MsgStop("Já se encontra em aberto!!!","PROGRAMA "+"NOME DA BARRA DE TITULO") Quit EndIf EndIf Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC E-mail: leandrolopes@success.inf.br Msn: leandroptu@ada.com.br Paracatu/MG Quote Link to comment Share on other sites More sharing options...
Geraldo_Andrade Posted December 1, 2013 Report Share Posted December 1, 2013 Não consigo fazer a psvince rodar em 64 bits, alguem tem uma dica ou solucao? Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted December 2, 2013 Report Share Posted December 2, 2013 IF(!PCS_StatusExe("nome_do_exe.exe")) // faz o que quer ENDIF **------------------------------------------------------------------------------** ** Finalidade : Verificar se um Programa está em execução **------------------------------------------------------------------------------** FUNCTION PCS_StatusExe(cExecutavel) **------------------------------------------------------------------------------** LOCAL oWmiService,oListaProcess,oProcessos,Wexecutando:=.F. oWmiService=Service_WMI() oListaProcess:=oWmiService:ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+cExecutavel+"'") FOR EACH oProcessos IN oListaProcess Wexecutando:=.t. Next RETURN(Wexecutando) **----------------------------------------------------------** STATIC FUNCTION Service_WMI() **----------------------------------------------------------** STATIC oWmiService LOCAL oScriptObj IF(oWmiService==NIL) oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator") oWmiService=oScriptObj:ConnectServer() ENDIF RETURN(oWmiService) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 29, 2014 Report Share Posted May 29, 2014 Bom dia amigos, lembro q um dia eu vi alguem querendo saber um comando pr ver se o EXE esta em USO.. não digo o EXE que esta aberto.. EX. verificar se a calculadora esta aberta ... ai vai a funçao function G_open(handle) Handle :=IsModuleLoaded('calc.exe') // Nome da janela principal do aplicativo if Handle = 0 Msginfo("ARQUIVO ESTA FECHADO","ATEÇÃO") else Msginfo("ARQUIVO ESTA ABERTO","ATEÇÃO") endif DLL32 function IsModuleLoaded(WindowName AS STRING) AS _INT PASCAL LIB "psvince.dll" a DLL encontra-se em www.drogaredeinformatica.com/prg/psvince.zip flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.5 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Geovanni, esta DLL é para 64 bIts? a DLL encontra-se em www.drogaredeinformatica.com/prg/psvince.zip Obg. abs. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.