Search  
Wednesday, May 23, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Win32 API  .exe deja rulea...
 .exe deja ruleaza
 
 1/22/2007 9:59:20 AM
User is offlineliviup
45 posts


.exe deja ruleaza
 (Romania)

Cum fac,ca la lansarea in exeutie a unui program in VFP9,sa verific daca ruleaza deja pe calculator un anumit .exe,de ex.: C:\FPD26\FOXR.EXE ?

   Multumesc,

 
 1/22/2007 10:33:27 AM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: .exe deja ruleaza
 (N/A)
http://www.profox.ro/FAQs/tabid/59/Default.aspx
Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 1/22/2007 10:34:33 AM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: .exe deja ruleaza
 (N/A)

La functii Win32 API (jos)

Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 1/22/2007 10:49:30 AM
User is offlineDorin Vasilescu
1366 posts
1st




Re: .exe deja ruleaza
 (N/A)
Exista asta
http://www.universalthread.com/wconnect/wc.dll?2,54,33,22966

Dar vei gasi acolo doar "ntvdm.exe" la programe DOS care ruleaza
Ai nevoie de enumerarea proceselor pe  16 biti rulate de ntvdm, dar trebuie sapat la VDMEnumTaskWOWEx
 1/22/2007 10:56:32 PM
User is offlinejustalex
126 posts
alexandru360.blogspot.com/
5th




Re: .exe deja ruleaza
 (Russian Federation)
Uite incearca acest cod ;)

If .Not. appmutex()
Quit
Else
Do MyApplication
Endif
Endproc
**
Function appmutex
Declare Integer CreateMutex In ;
WIN32API Integer, Integer, ;
STRING @
Declare Integer CloseHandle In ;
WIN32API Integer
Declare Integer GetLastError In ;
WIN32API
Declare Integer SetProp In ;
WIN32API Integer, String ;
@, Integer
Declare Integer GetProp In ;
WIN32API Integer, String ;
@
Declare Integer Removeprop In ;
WIN32API Integer, String ;
@
Declare Integer IsIconic In ;
WIN32API Integer
Declare Integer ;
SetForegroundWindow In ;
WIN32API Integer
Declare Integer GetWindow In ;
WIN32API Integer, ;
INTEGER
Declare Integer ShowWindow In ;
WIN32API Integer, ;
INTEGER
Declare Integer GetDesktopWindow ;
IN WIN32API
Declare Long FindWindow In ;
WIN32API Long, String
Local llretval, lcexeflag, ;
lnexehwnd, lnhwnd
lcexeflag = Strtran(_Screen.Caption, ;
" ", "") + Chr(0)
lnexehwnd = CreateMutex(0, 1, ;
@lcexeflag)
If GetLastError() = 183
lnhwnd = GetWindow(GetDesktopWindow(), ;
5)
Do While lnhwnd>0
If GetProp(lnhwnd, ;
@lcexeflag) = 1
If IsIconic(lnhwnd) > ;
0
ShowWindow(lnhwnd, ;
9)
Endif
SetForegroundWindow(lnhwnd)
Exit
Endif
lnhwnd = GetWindow(lnhwnd, ;
2)
Enddo
CloseHandle(lnexehwnd)
llretval = .F.
Else
SetProp(FindWindow(0, ;
_SCREEN.Caption), ;
@lcexeflag, 1)
llretval = .T.
Endif
Return llretval
Endfunc
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Win32 API  .exe deja rulea...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement