Dokunmatik Ekranda Windows Kitleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

windowsun açılışında.Benim projem açılışta çalışıyor.Bu durumda programımın windows menülerini kitlese. Aynı zamanda.Dokunmatik ekranda windowsu sol taraftan elle çekme işlemini yapılmasa yapılabilse dahi windows menüleri çalışmasın.Programı şifremle kontrol edecek windowsu.şifre doğru ise trayicona geçiyor ve windows sorunsuz çalışacak.projemin tray icona açılışta çaılışması ksımları tamam.windows u nasıl kontrol edebilirim.
ertank
Kıdemli Üye
Mesajlar: 1653
Kayıt: 12 Eyl 2015 12:45

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen ertank »

Merhaba,

Sizin istediğiniz işletim sistemini "kiosk" şeklinde çalıştırmak. Bunu program kodu ile değil windows ayarları ile yapabilirsiniz. Windows versiyonuna göre değişiklik gösterir. Windows 10 için kiosk modu detaylarına aşağıdaki bağlantıdan ulaşabilirsiniz.
https://docs.microsoft.com/en-us/window ... al-signage
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

tskler ertank inceleyeceğim
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

Mause ve klavye kullanımını nasıl engelleyebilirim yada dokunmatik devre dışı yapma.Gerci win sürümüne göre değişiyor.Şöyle bir kod buldum ama çalışmadı.tabi birde çalışacak kod Admin kullanıcısında sorunuda çözecek

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
function FuncAvail(dllName, funcName: string; var p: pointer): boolean;
 var
   lib: THandle;
 begin
   result := false;
   p := nil;
   if LoadLibrary(PChar(dllName)) = 0 then exit;
   lib := GetModuleHandle(PChar(dllName)) ;
   if lib <> 0 then
   begin
    p := GetProcAddress(lib, PChar(funcName)) ;
    if p <> nil then Result := true;
   end;
 end;

 var
   BlockInput : function(Block: BOOL): BOOL; stdcall;

 begin
  if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then
  begin
   ShowMessage('Your Mouse and Keyboard will be blocked for 5 seconds!') ;
   BlockInput(true) ;
   Sleep(5000) ;
   BlockInput(false) ;
  end;

end;
ertank
Kıdemli Üye
Mesajlar: 1653
Kayıt: 12 Eyl 2015 12:45

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen ertank »

Fare ve klavye kullanımını engelleme sebebinizi bilmiyorum. Ancak bunu yaparsanız dokunmatik işlemleri de engellemiş olursunuz. Dokunmatik işlem aslında bir fare tıklaması olarak çalışıyor işletim sisteminde.

Sadece sunum yapılacak. Kullanıcının müdahalesine gerek yok gibi bir işlem ise ancak bu mantıklı olabilir. Bu durumda da işletim sistemi bir sebepten yeniden başlatılacağı zaman sorun yaşanabilir (eğer uygulamanız işletim sisteminden gelecek "kapan" mesajına cevap vermez ise).
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

projem usbflash la çalışıyor hocam açılışta flash veri çekiyor veri doğruysa win açılıyor..projem açıkken fare klavye free.flash çekidiğinde win kapanacak zaten
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

hook ile hallediliyor ama projeme yansıtmadım dah
Dosya ekleri
MouseHook.zip
(206.97 KiB) 37 kere indirildi
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Dokunmatik Ekranda Windows Kitleme

Mesaj gönderen haydarxxx »

winhook
klavyehook
Dosya ekleri
Keyhook.zip
(127.82 KiB) 47 kere indirildi
winhook.zip
(14.57 KiB) 39 kere indirildi
Cevapla