Arkadaşlar Görev Yöneticisinden Saklanan programları görmek istiyorum. Bunu nasıl yapabilirim acaba?
Teşekkürler.
Görev Yöneticisinden Saklanan programları görme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Görev Yöneticisinden Saklanan programları görme
Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
- White Rose
- Üye
- Mesajlar: 726
- Kayıt: 06 Tem 2005 09:41
- Konum: Güneyden
- İletişim:
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.
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.
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.
- White Rose
- Üye
- Mesajlar: 726
- Kayıt: 06 Tem 2005 09:41
- Konum: Güneyden
- İletişim:
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
İşine yaracağını düşünüyorum..
http://www.sysinternals.com/Files/ProcessExplorer9x.zip
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.
hocam bu program işin görür
http://www.sysinternals.com/Utilities/P ... lorer.html
hem task managerdaki programları suspend edebilirsin.
http://www.sysinternals.com/Utilities/P ... lorer.html
hem task managerdaki programları suspend edebilirsin.