Inhalt einer MessageBox über Caption auslesen

[CalganX]

Kennt man den Titel einer MessageBox eines fremden Programms, so kann man mit diesem Code von Luckie den Inhalt der Box auslesen:

Delphi-Quellcode:

function GetMessageBoxTextByCaption(const Caption: String): String; 
const 
  ID_STATIC = $0000FFFF; 
var 
  hMsgBox: THandle; 
  len: Integer; 
  Buffer: PChar; 
begin 
  hMsgBox := FindWindow(nil, PChar(Caption)); 
  if hMsgBox <> 0 then 
  begin 
    len := SendMessage(GetDlgItem(hMsgBox, ID_STATIC), WM_GETTEXTLENGTH, 0, 0); 
    if len > 0 then 
    begin 
      GetMem(Buffer, len + 1); 
      try 
        GetDlgItemText(hMsgBox, ID_STATIC, Buffer, len + 1); 
        SetString(Result, Buffer, len + 1); 
      finally 
        FreeMem(Buffer); 
      end; 
    end; 
  end; 
end;