Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Görev yöneticisinden program sonlandırma
#1
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.
Cevapla
#2
"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?
There's no place like 127.0.0.1
WWW
Cevapla
#3
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');

 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


Saygılarımla,
Iyi çalışmalar.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#4
Aslında; "kill process" şeklinde aratırsanız bir çok hazır örnek bulabilirsiniz.
There's no place like 127.0.0.1
WWW
Cevapla
#5
(10-10-2017, Saat: 09:13)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlAslında; "kill process" şeklinde aratırsanız bir çok hazır örnek bulabilirsiniz.

Zamanlamamiz mükemmel hocam  Big Grin
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#6
(10-10-2017, Saat: 09:12)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol"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ı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhabalar 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');

 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


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

Bir kilo altından daha değerli bir bilgi resmen Smile  Çok teşekkürler..
Cevapla
#7
Exe sonlandırmak için Bu yeterli boşuna kod karmaşasına girmenize gerek yok,
TASKKILL /F /IM iexplore.exe
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#8
(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlExe 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.
Cevapla
#9
(10-10-2017, Saat: 14:26)tgural Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlExe 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  Smile
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#10
(10-10-2017, Saat: 14:26)tgural Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(10-10-2017, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlExe 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.
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Program Files Yetki Sorunu narkotik 9 229 18-01-2018, Saat: 17:45
Son Yorum: SimaWB
Question program içerisine veritabansız kayıt BY-HAYALET 6 178 09-12-2017, Saat: 12:23
Son Yorum: Abdullah ILGAZ
  Çalışma anında program kodu yazıp çalıştırmak boreas 9 423 30-10-2017, Saat: 11:17
Son Yorum: engerex
  Program menü formu için dashboard çalışması Abdullah ILGAZ 4 270 06-10-2017, Saat: 23:05
Son Yorum: pro_imaj
  [ÇÖZÜLDÜ] Komutlu Program AliZairov 3 435 04-05-2017, Saat: 10:32
Son Yorum: AliZairov



Konuyu Okuyanlar: 1 Ziyaretçi