Java-Programme sanft beenden

[toms]

Azureus minimiert die Anwendung ins Tray, wenn Sie die Nachricht WM_CLOSE erhält.

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('SWT_Window0','Azureus');
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_CLOSE, 0, 0);
  end;