Görev yöneticisinden program sonlandırma

[tgural]

Arkadaşlar merhabalar, bir buton aracılığı ile görev yöneticisinden belirttiğim uygulamayı kapatmak istiyorum bu konuda yardımlarınızı rica ediyorum.

[SimaWB]

"belirttiğim uygulamayı" -> Uygulamayı nasıl belirteceksiniz? Yani EXE ismine göre mi, PID'ye göre mi yoksa pencerenin handle'ına göre mi uygulama sonlandırılacak?

[Halil Han BADEM]

Merhabalar hocam, internette böyle bir kaynağa rastladım işinizi görecektir.

function KillTask(ExeFileName: string): integer;
const 
PROCESS_TERMINATE=$0001; 
var 
ContinueLoop: BOOL;
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32;
begin 
result := 0; 

FSnapshotHandle := CreateToolhelp32Snapshot 
(TH32CS_SNAPPROCESS, 0); 
FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, 
FProcessEntry32); 

while integer(ContinueLoop) <> 0 do 
begin 
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) = 
UpperCase(ExeFileName)) 
or (UpperCase(FProcessEntry32.szExeFile) = 
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess(OpenProcess( 
PROCESS_TERMINATE, BOOL(0), 
FProcessEntry32.th32ProcessID), 0)); 
ContinueLoop := Process32Next(FSnapshotHandle, 
FProcessEntry32); 
end; 

CloseHandle(FSnapshotHandle); 
end;
Kullanımı
killtask('calısan.exe');

 Kaynak


Saygılarımla,
Iyi çalışmalar.

[SimaWB]

Aslında; "kill process" şeklinde aratırsanız bir çok hazır örnek bulabilirsiniz.

[Halil Han BADEM]

(10-10-2017, Saat: 09:13)SimaWB Adlı Kullanıcıdan Alıntı: Aslında; "kill process" şeklinde aratırsanız bir çok hazır örnek bulabilirsiniz.

Zamanlamamiz mükemmel hocam 

[tgural]

(10-10-2017, Saat: 09:12)SimaWB Adlı Kullanıcıdan Alıntı: "belirttiğim uygulamayı" -> Uygulamayı nasıl belirteceksiniz? Yani EXE ismine göre mi, PID'ye göre mi yoksa pencerenin handle'ına göre mi uygulama sonlandırılacak?

exe ismine göre sonlandırmayı düşünüyordum hocam.

---

(10-10-2017, Saat: 09:13)hyperxman Adlı Kullanıcıdan Alıntı: Merhabalar hocam, internette böyle bir kaynağa rastladım işinizi görecektir.

function KillTask(ExeFileName: string): integer;
const 
PROCESS_TERMINATE=$0001; 
var 
ContinueLoop: BOOL;
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32;
begin 
result := 0; 

FSnapshotHandle := CreateToolhelp32Snapshot 
(TH32CS_SNAPPROCESS, 0); 
FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, 
FProcessEntry32); 

while integer(ContinueLoop) <> 0 do 
begin 
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) = 
UpperCase(ExeFileName)) 
or (UpperCase(FProcessEntry32.szExeFile) = 
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess(OpenProcess( 
PROCESS_TERMINATE, BOOL(0), 
FProcessEntry32.th32ProcessID), 0)); 
ContinueLoop := Process32Next(FSnapshotHandle, 
FProcessEntry32); 
end; 

CloseHandle(FSnapshotHandle); 
end;
Kullanımı
killtask('calısan.exe');

 Kaynak


Saygılarımla,
Iyi çalışmalar.

Bir kilo altından daha değerli bir bilgi resmen   Çok teşekkürler..

[yhackup]

Exe sonlandırmak için Bu yeterli boşuna kod karmaşasına girmenize gerek yok,

TASKKILL /F /IM iexplore.exe

[tgural]

(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Exe sonlandırmak için Bu yeterli boşuna kod karmaşasına girmenize gerek yok,

TASKKILL /F /IM iexplore.exe

Delphi ile bu kodu nasıl çalıştırabiliriz peki? Bende önce bat dosyası oluşturup winexec komutu ile bat dosyasını çalıştırıyordum ancak ekranda çıkan konsol pencereleri biraz can sıkıcı bu yüzden direk sonlandırmak istedim.

[Halil Han BADEM]

(10-10-2017, Saat: 14:26)tgural Adlı Kullanıcıdan Alıntı:

(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Exe sonlandırmak için Bu yeterli boşuna kod karmaşasına girmenize gerek yok,

TASKKILL /F /IM iexplore.exe

Delphi ile bu kodu nasıl çalıştırabiliriz peki? Bende önce bat dosyası oluşturup winexec komutu ile bat dosyasını çalıştırıyordum ancak ekranda çıkan konsol pencereleri biraz can sıkıcı bu yüzden direk sonlandırmak istedim.

Sw_hide komutu ile gizleyebilirsiniz 

[savasabd]

(10-10-2017, Saat: 14:26)tgural Adlı Kullanıcıdan Alıntı:

(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Exe sonlandırmak için Bu yeterli boşuna kod karmaşasına girmenize gerek yok,

TASKKILL /F /IM iexplore.exe

Delphi ile bu kodu nasıl çalıştırabiliriz peki? Bende önce bat dosyası oluşturup winexec komutu ile bat dosyasını çalıştırıyordum ancak ekranda çıkan konsol pencereleri biraz can sıkıcı bu yüzden direk sonlandırmak istedim.

   uses ShellApi;

ShellExecute(0, 'open', 'cmd.exe', '/k TASKKILL /F /IM iexplore.exe', nil, SW_HIDE) ;

şeklinde kullanabilirsiniz.