Jeg har lige strikket et hurtigt eksempel sammen der tjekker om et program (i dette tilfælde notepad) kører.
if (FindWindow('notepad',nil) <> 0) then ShowMessage('Hej. Notepad kører!');
Så kan du selv arbejde videre på det.
Edit: Denne metode er ikke lige så god. Men jeg ved ikke hvad man skal udskifte notepad med hvis man vil tjekke om webcoder kører.
if (FindWindow(nil,'Delphi 7') <> 0) then //kode her
if (FindWindow(nil,'TSW WebCoder') <> 0) then //kode her
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------
[Redigeret d. 19/03-05 12:39:03 af Jonas (Decko)]