Delphi Can
Undocumented FrostCrashedWindow - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Undocumented FrostCrashedWindow (/showthread.php?tid=1395)

Undocumented FrostCrashedWindow - savasabd - 05-10-2017

Malum bu ara Undocumented(belgelenmemiş) api'lerle haşır neşiriz.Bu sebeple birini paylaşmak istedim.
Hesap makinesini (yada istediğiniz bir pencereyi) açın.Sonra aşağıdaki kodları çalıştırın ve pencereye bakın,tanıdık bir durum göreceksiniz.Api Parametre olarak Handle'ni aldığı pencereyi donduruyor, ulaşılamaz hale getiriyor. Windows'ta klasik yanıt vermeyen pencere görüntüsü oluşuyor. Tabiki normalde Windows bu Api'yi, -Api'nin adındaki crashed'dan da anlaşılacağı gibi- çökmüş pencereler için kullanıyor.
program Project21;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils,Winapi.Windows;
var
wnd,ret : HWND;
dll : HMODULE ;
f1 : function(wnd:Hwnd;pr:HWND):HWND;stdcall;
begin

 wnd:= FindWindow(0,'Hesap Makinesi');  //formun texti
dll:= LoadLibrary('user32.dll');
f1 := GetProcAddress(dll, 'FrostCrashedWindow');
ret:= f1(wnd, 0);
  if (ret<>0) then  Writeln('Başarılı');

FreeLibrary(dll);
 readln;

end.


Undocumented FrostCrashedWindow - frmman - 05-10-2017

Windows 10 x64 Türkçe sistemde hesap makinası açıkken çalıştırınca bende ki denemede tepki vermedi.

Cvp: Undocumented FrostCrashedWindow - Tuğrul HELVACI - 05-10-2017

(05-10-2017, Saat: 19:57)savasabd Adlı Kullanıcıdan Alıntı: Malum bu ara Undocumented apilerle haşır neşiriz.Bu sebeple birini paylaşmak istedim.
Hesap makinesini (yada istediğiniz bir pencereyi) açın.Sonra aşağıdaki kodları çalıştırın ve pencereye bakın,tanıdık bir durum göreceksiniz.
program Project21;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils,Winapi.Windows;
var
wnd,ret : HWND;
dll : HMODULE ;
f1 : function(wnd:Hwnd;pr:HWND):HWND;stdcall;
begin

 wnd:= FindWindow(0,'Hesap Makinesi');  //formun texti
dll:= LoadLibrary('user32.dll');
f1 := GetProcAddress(dll, 'FrostCrashedWindow');
ret:= f1(wnd, 0);
  if (ret<>0) then  Writeln('Başarılı');

FreeLibrary(dll);
 readln;

end.

Teşekkür ederim, kod paylaşmışsınız ama; paylaştığınız kodu denemeden ilgili API'nin ne işe yaradığını da izah ederseniz daha faydalı olacaktır Wink

Cvp: Undocumented FrostCrashedWindow - pro_imaj - 06-10-2017

(05-10-2017, Saat: 19:57)savasabd Adlı Kullanıcıdan Alıntı: Malum bu ara Undocumented apilerle haşır neşiriz.Bu sebeple birini paylaşmak istedim.
Hesap makinesini (yada istediğiniz bir pencereyi) açın.Sonra aşağıdaki kodları çalıştırın ve pencereye bakın,tanıdık bir durum göreceksiniz.
program Project21;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils,Winapi.Windows;
var
wnd,ret : HWND;
dll : HMODULE ;
f1 : function(wnd:Hwnd;pr:HWND):HWND;stdcall;
begin

 wnd:= FindWindow(0,'Hesap Makinesi');  //formun texti
dll:= LoadLibrary('user32.dll');
f1 := GetProcAddress(dll, 'FrostCrashedWindow');
ret:= f1(wnd, 0);
  if (ret<>0) then  Writeln('Başarılı');

FreeLibrary(dll);
 readln;

end.

Ekran görüntüsü var mı? Smile

Cvp: Undocumented FrostCrashedWindow - savasabd - 06-10-2017

(05-10-2017, Saat: 21:02)frmman Adlı Kullanıcıdan Alıntı: Windows 10 x64  Türkçe sistemde hesap makinası açıkken çalıştırınca bende ki denemede tepki vermedi.

Hocam,microsoft belgelediği apinin geriye uymlulugunu sürdürürken belgelenmemiş apilleri istedigi gibi kaldırabiliyor,yada yerini değiştirebiliyor.Kullanmanın sakıncalarından biri de bu.Ben 7'de denedim çalışıyor.
(05-10-2017, Saat: 23:39)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Teşekkür ederim, kod paylaşmışsınız ama; paylaştığınız kodu denemeden ilgili API'nin ne işe yaradığını da izah ederseniz daha faydalı olacaktır Wink
Hocam, Api Parametre olarak Handle'ni aldığı pencereyi donduruyor, ulaşılamaz hale getiriyor. Windows'ta klasik yanıt vermeyen pencere görüntüsü oluşuyor. Tabiki normalde Windows bu Api'yi, -Api'nin adındaki crashed'dan da anlaşılacağı gibi- çökmüş pencereler için kullanıyor.
(06-10-2017, Saat: 00:28)pro_imaj Adlı Kullanıcıdan Alıntı: Ekran görüntüsü var mı? Smile
Yukarda açıkladım ama istiyorsanız akşama görüntü atayım.Smile

Undocumented FrostCrashedWindow - frmman - 06-10-2017

SS isteriz Smile

Cvp: Undocumented FrostCrashedWindow - Tuğrul HELVACI - 06-10-2017

Burayı ve burayı da inceleyelim madem Wink