Кто поможет собрать программу из кусков кода

[Kvinto]

Ну вот... Борьба с RADIO CHECKER PRO продолжается!

Теперь он закрываться не хочет...

h:=FindWindow('TRadioChecker',nil);
SendMessage(h,WM_DESTROY,0,0);

Не закрывается! Как быть?

[Stilet]

а так:
PostMessage(WM_SYSCOMMAND,SC_CLOSE, 0);

[raxp]

и так

SendMessage(findwindow('TRadioChecker',nil),WM_SYSCOMMAND,SC_CLOSE,0);

[Kvinto]

Ясно...

Попробовал просто

SendMessage(h,WM_CLOSE,0,0);

Закрылось...

А как вообще правильно?

[readmy]

Форма. на ней Label1 и 2 кнопки
1 кнопка Включение образца с постановкой на слежение Образец 3
2-я кнопка Clr Labrel просто очищает Label1
При загрузки программы происходит Включение образца с постановкой на слежение.
после срабатывания образца, программа запускает бат файл.
В моем случае, ловил тишину и перезапускал VLC

unit checker;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    btn1: TButton;
    btn2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    function GetCheckerHandle:Integer;
    function SendWindowClassName(ClassName: string): Integer;
    procedure CheckerMessage (var Msg: TMessage); message WM_USER;
//    procedure TCheckerHandler.CheckerMessage (var Msg: TMessage);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CheckerHandle:Integer;
implementation




{$R *.dfm}

{ TForm1 }


function TForm1.GetCheckerHandle: Integer;
begin
  Result := FindWindow('TRadioChecker', nil);
end;

function TForm1.SendWindowClassName(ClassName: string): Integer;
var
Struct: COPYDATASTRUCT;
pch: array[0..255] of Char;

begin
CheckerHandle := GetCheckerHandle;
Struct.dwData := 1000;
Struct.lpData := StrPCopy(pch, ClassName);
Struct.cbData := StrLen(Struct.lpData) + 1;
SendMessage(CheckerHandle, WM_COPYDATA, 0, LPARAM(@Struct));

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 // Caiiieiaai Handle

  CheckerHandle := GetCheckerHandle;
  SendMessage(CheckerHandle, WM_USER, 100, Handle);
  Label1.Caption :=IntToStr(CheckerHandle);
  SendMessage(CheckerHandle, WM_USER, 2012, 2);
end;

procedure TForm1.CheckerMessage(var Msg: TMessage);
var
  BatchFileName: string;
begin
   BatchFileName:='c:\run\vlc-restart.bat';
   case Msg.wParam of
     2000: if msg.lparam = 2 then
      begin
        Label1.Caption := IntTostr(msg.lparam) + 'O?A ?AAIOAAO'; // aaoe aaenoaey
        winexec(Pchar(BatchFileName),sw_hide);

      end;
   end
end;



procedure TForm1.btn1Click(Sender: TObject);
begin
  SendMessage(CheckerHandle, WM_USER, 2012, 2);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Label1.Caption := '';
end;

end.

[Человек_Борща]

Это конечно хорошо, но...ещё древнее тему найти не смог?