Ms-Dos uygulamalarını kapatmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ayhandemirtas
Üye
Mesajlar: 114
Kayıt: 01 Oca 2008 10:02
Konum: Eskişehir

Ms-Dos uygulamalarını kapatmak

Mesaj gönderen ayhandemirtas »

Arkadaşlar merhaba,
Ben windows un kabuk ayarları ile oynayarak bazı özelliklerini kısıtlıyorum.
Lakin Ms-DOS uygulamalarını kapatamıyorum. bilgisayarda MS-DOS kipinde çalışan oyunları çalışamaz duruma nasıl getireceğimi çözemedim.
İş yerimde oyun oynayan arkadaşlar yüzünden yönetimden zoka yedim.
İş yapmaktan ziyade 200 bilgisayara sürekli yüklenen oyunları silmeye çalışıyorum.
Şimdiden teşekkür ediyorum,
Windows Api lere baktım böyle bir kod göremedim.
recepuncu
Üye
Mesajlar: 66
Kayıt: 04 Nis 2006 08:22
Konum: Çorum

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen recepuncu »

slm, çalışamaz duruma getirmek nedir? yada çalışamaz duruma getirdiğin bişeyle örneklersen ona göre yardımcı olalım..
"Şu deredeki su,kaç kere değişti,yıldızların akisleri hep yerinde."
Jire
Üye
Mesajlar: 167
Kayıt: 07 Eki 2007 01:20

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen Jire »

hmm çalışanları bir daha oynamamaları için korkutabilirsin.

öncelikle bir program yaparsın eğer ms-dos oyunu yada programı açıksa program bunu process isminden algılar devamında ekranı siyaha boyar klavye ve fareyi kiltler sonra o arkadaş seni çağırır birden böyle oldu der, sen de sorarsın "emin misin hiç birşey yapmadan böyle olduğuna :twisted: " dersin devamında artık korkusundan bir daha oynamaz :bravo: sonra o arkadaş görmeden gizli bi tuşa basarsın siyah ekran kalkar herkes mutlu olur. :P
Kullanıcı avatarı
ayhandemirtas
Üye
Mesajlar: 114
Kayıt: 01 Oca 2008 10:02
Konum: Eskişehir

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen ayhandemirtas »

recepuncu yazdı:slm, çalışamaz duruma getirmek nedir? yada çalışamaz duruma getirdiğin bişeyle örneklersen ona göre yardımcı olalım..
Merhaba tabi bildiğim kadarıyla oyun oynanırken ms-dos kipi bir şekilde devreye giriyor.
Yani Ms-dos tabanlık olyunları bilgisayarda oynanamaz hale getirmek istemiştim.
Jire yazdı:hmm çalışanları bir daha oynamamaları için korkutabilirsin.

öncelikle bir program yaparsın eğer ms-dos oyunu yada programı açıksa program bunu process isminden algılar devamında ekranı siyaha boyar klavye ve fareyi kiltler sonra o arkadaş seni çağırır birden böyle oldu der, sen de sorarsın "emin misin hiç birşey yapmadan böyle olduğuna :twisted: " dersin devamında artık korkusundan bir daha oynamaz :bravo: sonra o arkadaş görmeden gizli bi tuşa basarsın siyah ekran kalkar herkes mutlu olur. :P
Merhaba, process isminden demişsin bende bunu nasıl yaparım tam olarak bilemiyorum,

İlginize teşekkürler.
Jire
Üye
Mesajlar: 167
Kayıt: 07 Eki 2007 01:20

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen Jire »

Ctrl-alt-del yaptığınızda .exe lerin bulunduğu bir liste çıkar ya onlara göre işlem yapabilirsiniz.

verdiğim sitede örnek verilmiş
http://www.delphitricks.com/source-code ... nning.html

eğer

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
//oyunun adı crysis.exe, açıksa ilk mesaj
  if processExists('crysis.exe') then
    ShowMessage('fazla oyun oynama')
//değilse son mesaj
  else
    ShowMessage('çok kasma biraz oyun oyna');
end;
emin_as
Üye
Mesajlar: 559
Kayıt: 01 Eki 2008 10:05
Konum: izmir
İletişim:

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen emin_as »

Denemedim, ama çalıştıgını sanıyorum.
Bu işlem tüm msdos uygulamalarınıı kapatıyor, oyun vs ayrimi yapmiyor.

http://www.boyce.us/gp/gpcontent.asp?ID=538

Regedit ile bu aşagıdaki key leri degiştireceksin.

HKLM\Software\Policies\Microsoft\Windows\AppCompat!VDMDisallowed
HKLM\System\CurrentControlSet\Control\WOW\DisallowedPolicyDefault
Kullanıcı avatarı
ayhandemirtas
Üye
Mesajlar: 114
Kayıt: 01 Oca 2008 10:02
Konum: Eskişehir

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen ayhandemirtas »

Merhaba, İlgin için teşekkür ederim,
:( malesef çalıştıramadım, cehaletime yor lütfen, uses; kısmına eklemem gereken birşeyler var ama bulamdım diye düşünüyorum.
Hata;
processExists
kısmında veriyor ve devam etmiyor
Process32First ve diğer özellikleri seçtim fakat bir türlü ilerleme olmadı..


begin
if processExists('oyun.exe') then //
ShowMessage('fazla oyun oynama')
//değilse son mesaj
else
ShowMessage('çok kasma biraz oyun oyna');
end;
emin_as
Üye
Mesajlar: 559
Kayıt: 01 Eki 2008 10:05
Konum: izmir
İletişim:

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen emin_as »

Regedit ile registrye gir ve aşagıdaki alan git.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW

Bu şekilde yeni DWORD bir key yarat
DisallowedPolicyDefault
ve yarattıgın bu key e
1
degerini gir.

regedit i kapattıktan sonra, o bilgisayarda herhangi bir 16bit uygulama çalıştıramazsın. Yetkinin olmadıgı hatasını verir.

Aşagıdaki kod kısmını yeni bir metin belgesinin içine yapıştır ve ismini engelle.reg olarak degistir. Bu dosyayı çift tıklayınca windows registy ile bu dosyanın içerigini birleştirir.

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW]
"DisallowedPolicyDefault"=dword:00000001
Kullanıcı avatarı
ayhandemirtas
Üye
Mesajlar: 114
Kayıt: 01 Oca 2008 10:02
Konum: Eskişehir

Re: Ms-Dos uygulamalarını kapatmak

Mesaj gönderen ayhandemirtas »

Hocam sağol bu sefer halloldu.
hatta şu xxx.reg olayı ile yeni kodlarımıda eklerim,
Emeğine eline sağlık.
Cevapla