Görev Yöneticisinden Saklanan programları görme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Görev Yöneticisinden Saklanan programları görme

Mesaj gönderen husonet »

Arkadaşlar Görev Yöneticisinden Saklanan programları görmek istiyorum. Bunu nasıl yapabilirim acaba?

Teşekkürler.

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

s.a.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,TlHelp32;

type
TForm1 = class(TForm)
Button1: TButton;
S: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
devam: BOOL;
fyakhandle: THandle;
islem32 : TProcessEntry32;
begin
s.Clear;
fyakhandle :=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
islem32.dwSize:=Sizeof(islem32);
devam :=Process32First(fyakhandle,islem32);
while integer(devam)<>0 do begin
//Listeye çalışan exe dosyaları ekleniyor.
S.Items.Add(islem32.szExeFile);
devam:=Process32Next(fyakhandle,islem32);
end;
CloseHandle(fyakhandle);

If s.Items.IndexOf('FBSERVER.exe')>0 Then
showmessage('Firebird server ÇALIŞIYOR')
else
showmessage('Firebird server yok');

If s.Items.IndexOf('fbguard.exe')>0 Then
showmessage('Firebird guard ÇALIŞIYOR')
else
showmessage('Firebird guard yok');
end;

end.
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

hocam bu programla yakalayamıyorum... Acaba console exesi olabilirmi :s

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

s.a.

hocam çalışması lazım ama, ben firebirdin çalışıp çalışmadığını mesela burdan kontrol ediyorum
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Daha önce bu program ile gizli olarak çalışan programları görebilmiştim..

İşine yaracağını düşünüyorum..


http://www.sysinternals.com/Files/ProcessExplorer9x.zip
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Oda bulamadı sanırım bu dll olabilir.

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
MANDRAKE
Üye
Mesajlar: 72
Kayıt: 26 Haz 2005 08:42

Mesaj gönderen MANDRAKE »

hocam bu program işin görür
http://www.sysinternals.com/Utilities/P ... lorer.html

hem task managerdaki programları suspend edebilirsin.
MANDRAKE
Üye
Mesajlar: 72
Kayıt: 26 Haz 2005 08:42

Mesaj gönderen MANDRAKE »

Şu da işine yarayabilir

function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD;
stdcall; external 'KERNEL32.DLL';

begin

RegisterServiceProcess(GetCurrentProcessID, 1);


RegisterServiceProcess(GetCurrentProcessID, 0);
end
Cevapla