Programm über SendMessage kontrollieren

[sirius]

Entschuldige PChar und String auf die harte Tour zu verainbaren ist nicht so einfach:

Delphi-Quellcode:

procedure xxx.receive(var msg:TMessage); 
var s:string; 
begin 
  setlength(s,msg.lparam+1); 
  l:=globalgetatomname(msg.wparam,@s[1],msg.lparam+1);
  setlength(s,msg.lparam); 

end;