Exenin Çalışmasını Engellemek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
MAydinli
Üye
Mesajlar: 32
Kayıt: 19 Eki 2006 08:55
Konum: Kayseri

Exenin Çalışmasını Engellemek

Mesaj gönderen MAydinli »

Arkadaşlar herkese kolay gelsin,
Küçük bir program yapmamız gerek.
Yardımlarınızı bekliyoruz.

Yapmak İstediğimiz program bir cafede kullanılaçak.
proğram cafede ne iş yapaçak..?
cafedeki sistemlerde bir exenin çalışmasını önleyeçek,
arka planda çalışaçak.

Yardımlarınız için şimdiden teşekkür ederim.
MAydinli
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

bunun için program yazmana gerek yok. gpedit.msc yi çalıştırıp belirtilen bir programı çalıştırma kısmında iligli exenin adını yaz ve bu keyi export edrsen elinde reg dosyası kalır. bu reg dosyasının çalıştırdığın her yerde ilgili exe çalışmaz.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
MAydinli
Üye
Mesajlar: 32
Kayıt: 19 Eki 2006 08:55
Konum: Kayseri

Mesaj gönderen MAydinli »

paşam exe normalde sistemde yüklü değil kullanıcılar inadında netten dosyayı çekip kuruyorlar. Biz, mümkünse kurmasını önlemek yada kursa bile çalıştırmasını önlemek istiyoruz.
MAydinli
Kullanıcı avatarı
barutali
Üye
Mesajlar: 297
Kayıt: 02 Tem 2007 02:30

Mesaj gönderen barutali »

handle kullanarak programın çalışıp çalışmadığını algılayabilir ve daha sonra " kill " gibi bir komuttu sanırsam onunla kapattırabilirsin..

[Yanlış Bilgi Verdiysem Lütfen Düzeltin]
amatör küme programcı :D
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

MAydinli yazdı:paşam exe normalde sistemde yüklü değil kullanıcılar inadında netten dosyayı çekip kuruyorlar. Biz, mümkünse kurmasını önlemek yada kursa bile çalıştırmasını önlemek istiyoruz.
sourceforgede kayıtlı kill process adlı opensource bir proje var. delphi 6 ile yazılmış. bir ayar listesi var. o listedeki tüm exeleri sorgu sual etmeden öldürüyor. msn, ares vs ne isterssen mumkun.

öte yandan benim sana önerdiğim yöntemde aynen bu işi yapıyor. yada registryde exe adı yazıyor ve o isimde exe başlatılmıyor. kursa kaldırsa bile önemli değil. başlatamıyor.

ancak sürekli bir exe için hafızayı kontrol eden uygulamayı sen yazsanda bu sisteme yük bindirecektir azda olsa. bu açıdan registryden engellemek, yada kill process ile birç ok exe için kontrolü yapmak daha mantıklı.

ayrıca kullanıcıların admin değil normal user da yapabbilirsin. o zaman program kuramazlar. ancak bir çok şey kısıtlandığından teknik departmanın bşı ayrıyabilir.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
MAydinli
Üye
Mesajlar: 32
Kayıt: 19 Eki 2006 08:55
Konum: Kayseri

Mesaj gönderen MAydinli »

paylaştığınız bilgiler için teşekkür ederim
MAydinli
MAydinli
Üye
Mesajlar: 32
Kayıt: 19 Eki 2006 08:55
Konum: Kayseri

Mesaj gönderen MAydinli »

arkadaşlar tekrar merhaba uzun süredir forma girmemiştim en son tşk ettim sizlere... neyse konumuz bu degil :)
başlıktaki sorunu geçiçi bir süreliğine çözmüştük. ama tekrar sorun başladı...

@ikutluay, arkadaşımdan bi ricam olaçak..
sourceforgeden kill process adlı projeyi indirdim ama bir türlü çalıştırmayı başaramadım...

Kod: Tümünü seç

C:\kill>progscript.bat
FATAL ERROR: You must first edit this Batch Script!
C:\kill>
şeklinde bir hata alıyorum... Denedim amam sorunu çözemedim...yardım ederseniz sevinirim. Cevap için şimdiden teşekkür ederim.
MAydinli
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

öncelikle scripti düzenlemelisin diyor. anladıoğım kadarı ile
İndirdikten sonra bat dosyada bir ayar falan olabilir.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

gerekli bilgi readme dosyasında vardı. detaylıca okursanız yardımcı olur.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Bir zamanlar lazım olmuştu arşivimden

Kod: Tümünü seç

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

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.szExeFile)) =
      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;

procedure TForm1.Button1Click(Sender: TObject);
var
 h:thandle;
begin
  h:=FindWindow(nil, 'form2');
  PostMessage(h,wm_close,0,0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  killtask('test.exe');
end;

end.
:wink:

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ı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

burada 2 teknik var Öldür de kendim basitce bişey yazmıştım bunu diğer exeden yakalamak mümkün Öldür2 ise hazır fonksiyon kullanmıştım öldürülecek exe den yakalamak zor ben başaramamıştım açıkcası umarım faydalı olur.


Kolay gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

yukardaki kod örneği 98 ve nt serisinde farklı işleve sahip.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Cevapla