Undocumented FrostCrashedWindow

[pro_imaj]

(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ı?