Çalışan programları bulmak

Öncelikle çok teşekkür ederim cevabınız için. Aslında amacım client'larda bulunan program.exe'yi server'daki exe ile karşılaştırıp farklıysa update etmek. Bunu yaparken de program.exe'nin çalışmadığını garanti etmem lazım. Ama sizin uyarınızı dikkate alarak çalışan programı "katletmek" yerine kullanıcıya programın çalıştığına ve kapatılması gerektiğine dair bir uyarı verip update'i yapmayacağım.

Bu arada debugger'da da bir sorun oluştu, belki bu konuda da yardımcı olabilirsiniz. Daha önce çalışan programları bulabilmek için DDEInitiate kullanmaya çalışmıştım ama olmadı (eğer bağlantı kurulursa -1 dışında bir değer dönecek ve program açık anlamına gelecekti). "program.exe"de çalışmayınca debugger'ın watch özelliğini kullanarak çalışan bazı programlarda bu komutu denedim (örn. word, excel, svchost, services, outlook.exe vs.). Debugger'ı kapatırken bunları silmedim sanırım. Şimdi debugger'ı açmam gerektiğinde "Remote data not accessible. Start application 'OUTLOOK.EXE'?" (ve diğer programlar için de ayrı ayrı veriyor bu uyarıyı) uyarısını veriyor. No dersem sonsuz bir döngüye giriyoruz, sürekli soruyor. Yes dersem bazılarını çalıştırıyor, bazılarını çalıştıramıyor ve tekrardan hepsi için bu messagebox geliyor. Yani debugger'ı artık kullanamıyorum! Bilmiyorum sorunun kaynağı benim önceki denemelerim mi ama bana en mantıklı açıklama bu geldi.

Yolladığınız kod için tekrar teşekkür ederim.

Debugger sorunu da halloldu. Yardımlarınız için tekrar teşekkür ederim.

dolayısıyla her clientdeki exe yide güncellenek gibi,bir problemde kalmamış olur :-)

Single Point Of Failure diye bir kavram okumuştum sanırım bir yerlerde. Aklımda böyle bir şeyler kalmış en azından. Hangi standarttadır nerededir şimdi hatırlamıyorum ama benim kendi adıma geliştirdiğim projelerde kesinlikle bu yöntemi tercih ediyorum. VFP nin genel data trafiğinin yarattığı yük düşünüldüğünde 5-10 bilemedin abart 20-30 mb lik trafiklerin çok ta önemli olmadığını düşünüyorum.

Ayrıca da ben gene kendi uygulamalarımda VRC ( Version Release Control ) uyguladığım için zaten uygulama esnasında birden fazla versionun çalışması söz konusu olabiliyor. ( Örneğin sistem yöneticileri ve aklı başında kullanıcılara yeni versionu açıp, sıradan kullanıcıların halihazırdaki version ile çalışması ve makul bir süre sonunda problem yoksa yeni versionun release edilmesi gibi ) Böyle olunca da benim için server üzerindeki exe ye herkesin erişmesi benim de tercih ettiğim bir yöntem.

Ama biliyorum ki ftp den kendi kendini update eden exelerin her clienta ayrı ayrı yüklenmesi yöntemini kullanan arkadaşlar da var. Ve ben pratik olarak ta biliyorum ki bu da son derece sorunsuz olarak kullanılabiliyor. Bir yerden sonra sanki neredeyse teknik bir seçim değil de kişisel tercih halini alabilen bir konu gibi geliyor bu bana.

anaprogram.exe'nin dogrudan calistirilmasinda aslinda sorun yok. Kullanici bilerek ve isteyerek versiyon kontrolu olmadan mevcut versiyonu calistirmis oluyor. Yine de kontrol etmek istersen cozumu basit. anaprogram.exe bir parametre verildiginde calisabilir:

* anaprogram.exe icin main.prg

lparameters kimCagirdi

if m.kimCagirdi <> 'ASeray'

   return

endif

* ...

Yukleyici.exe kodu:

* ...

declare long ShellExecute in "shell32.dll" ;

    long hwnd, string lpszOp, ;

    string lpszFile, string lpszParams, ;

    string lpszDir, long nShowCmd

 

ShellExecute(0,'Open', 'anaprogram.exe', 'ASeray', 0,1)

sizin kodlar sanırım farklı. ben bunları nerden buldum hatırlamıyorum ama işime yarıyor:

DECLARE INTEGER CreateEvent IN WIN32API ;

   INTEGER lpEventAttributes, ;

   SHORT bManualReset, ;

   SHORT bInitialState, ;

   STRING @ lpName

DECLARE INTEGER GetLastError IN Win32API

DECLARE CloseHandle IN Win32API INTEGER hObject

nEh = CreateEvent(0,0,1, PROGRAM(0) + '.EVENT')

IF GetLastError() = 183 OR nEh = 0

   *  There's an instance running already (183) or the Event can't be defined

   *  So don't do it;  do release the handle, since it's harmless and should

   *  be done rather than relying on Windows to clean up after itself

   =CloseHandle(nEh)

   MessageBox("Bu programın bir kopyası daha açık!.."+Chr(13)+;

       "Aynı anda iki kopya çalışamaz!..",0+16+4096,"Hata")

   QUIT

ENDIF

Artik WMI'in bulunmadigi makine bulmak zor. O nedenle WMI kullanmak daha kolay geliyor. Bu MS MSDN yardim WMI Win32_Process class aciklamalarindaki ornegin biraz modifiye hali:

Local objWMIService,User,Domain

objWMIService = Getobject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

 

colProcesses = objWMIService.ExecQuery( "select * from win32_process where Name='VFP9.exe'" )

For Each objProcess In colProcesses

    Store '' To User,Domain

    Try

        If objProcess.GetOwner ( @User, @Domain ) = 0

            ? "Process ", objProcess.Caption, " belongs to ", m.Domain, m.USer

        Else

            ? "Problem  getting the owner for process", objProcess.Caption

        Endif

    Catch

    Endtry

Next

yukarıdaki kodlar ile çalışan program isimlerini bulabiliyoruz,
aradığım o programın çalıştırdığı "handle" veya "window name"
EnumThreadWindows 'un VFP uygulamasını beceremedim.
*---
yapmak istediğim:

DECLARE INTEGER SetParent IN user32;

        INTEGER hWndChild, INTEGER hWndNewParent

SetParent(hCalc, _screen.HWND)

ile örneğin calc.exe'yi VFP formu içinde çalıştıracağım. hcalcı bulamıyorum.

Findwindow ile "Hesap Makinesi" diye arayıp bulabilirim, ancak üniversal olmaz, ingilizce makinelerde "calculator" demem gerekiyor etc ...
belki de türkçe ingilizce çözüm aşağıdakigibi:

hCalc = MAX( FindWindow(null, "Calculator"), FindWindow(null, "Hesap Makinesi"))

IF hcalc>0 

SetParent(hCalc, _screen.HWND)

endif