Hi again!
Ok, I don`t know where to post this, curse the forum is in german..

I hav an irritating program that starts several times on my computer, and I want to make a program in delphi 6 that "kill`s" the program!
You know: End the prosess...
I will not delete the program, I have to stop the prosess... Like when you push ctrl+alt+del in windows and "kill" it.
I need my delphi program to search for programs running every 5th minute, and then close the prosess I set it to...

Thanks in advance!


Moderiert von Peter Lustig: Moved from Dateizugriff on So 11.07.2004 at 17:30

Hi,

Try to find the program via FindWindow and kill it by either using TerminateProcess or sending a WM_CLOSE Message to the program.
To find a Window using FindWindow you need the ClassName and the WindowName. Both can be retrieved with a tool called X-SPY.

raziel

Thanks m8! :D
But could you make a simple example code for me?
Lets say that the program`s name is: "test123"

If you could do this, I would be very happy! :wink:

Thanks in advance! 8)

Try this:

I haven't checked it, but I hope it will work....

If you have only the name of the executable, try this: www.luckie-online.de...lHelp32Snapshot.html

Thanks for all the help!
This is a really great forum!

<edit:>
but if I would like it to close the game Warcraft III, that uses the file war3.exe, shouldn`t the code be like this then? SendMessage(FindWindow('war3.exe', nil), WM_CLOSE, 0, 0); ???
Course thisone doesn`t work!
Whan I write notepad instead of war3.exe, it works!
</edit:>

<edit2:>
I read that link you gave me, but I don`t know a word in dutch!!!
Witch one do I have to use?
</edit2:>

Sorry for all my questions...

Notepad is the name of the window class, too. And so it works. If you want to kill an executable with or by its name, you should use Luckie's unit. Make a peep, if you have problems with his German commentaries.

I see it now! hehe...
But could you copy out the lines I need to use form that page Luckie sendt, course I don`t know a single word in german, dutch or what ever it is! lol!

And thanks!

It's German, I guess. (@Luckie: ) Seriously --

Start a new project and put a listbox and two buttons onto your form. Then copy everything what you see in Luckie's sample code -- excluding the two button click procedures at the bottom.

So, now double-click the first button and fill it with the two lines, you see in the "Button1Click" procedure. Then double-click the second button and fill it with the line, you see in "Button2Click".

Now compile and try it:
Using the first button will fill your listbox with all running processes.
Select one and click the second button to kill the selected process.

That's all.
Try to analyze the code and (especially) its steps and you understand what happens.



To all the Germans here: Am I so bad? Altavista's translation:

Zitat:

It's Deutscher, schätze ich. (@Luckie: ) Ernsthaft -- Beginnen Sie ein neues Projekt und setzen Sie ein listbox und zwei Tasten auf Ihre Form. Kopieren Sie dann alles, was Sie in Luckie's Beispielcode -- [ b]excluding[/b ] die zwei Taste Klickenverfahren an der Unterseite sehen. So jetzt füllt Doppeltklicken die erste Taste und sie mit den zwei Linien, Sie sieht in das "Button1Click" Verfahren. Dann füllt Doppeltklicken die zweite Taste und sie mit der Linie, Sie sieht in "Button2Click". Jetzt kompilieren Sie und versuchen Sie es: Das Verwenden der ersten Taste füllt Ihr listbox mit allen laufenden Prozessen. Wählen Sie ein vor und klicken Sie die zweite Taste an, um den vorgewählten Prozeß zu töten. That's alle. Versuchen Sie, den Code zu analysieren und (besonders) verstehen seine Schritte und Sie, was geschieht.

Stianbl hat folgendes geschrieben:

I see it now! hehe... But could you copy out the lines I need to use form that page Luckie sendt, course I don`t know a single word in german, dutch or what ever it is! lol! And thanks!

Well, I thought, if you post in a German Delphi Board, your German is good enough to understand my code. Besides the important procedure names are in english. Guess what KillProcess does

Yeah!
Ok.. Thanks for all the help!
I`ll try it all...