fenster minimiert?

[fkerber]

Hi!

Delphi-Quellcode:

if command = '!text' then 
begin 
  memo1.Lines.Add(copy(strcommand,6,length(strcommand))); 

  if IsIconic(Form1.Handle) then 
    begin 
      PlaySound('message',0,SND_RESOURCE or SND_ASYNC); 
   end; 
end;

Ciao fkerber