//分析结果
WM_AnalysisResult = WM_USER + 1009;

 

SendMessage(G_MainHandle, WM_AnalysisResult, 0, 0);

 

procedure WMAnalysisResultUpdate(var AMessage: TMessage); message WM_AnalysisResult ;

procedure Tfrm_MainIPC.WMAnalysisResultUpdate(var AMessage: TMessage);
begin
if AMessage.Msg = WM_AnalysisResult then
begin
//finMessage('haha');
end;
end;