100分 求 win8下postmessage的解决方法

Question

delphiwin8postmessage

Answer 1

用GetLastError 看看错误是啥

Answer 2

你先确认是result是在哪里被设为false的，是获取句柄那里，还是在postmessage那里。另外你用的什么版本delphi，注意ansichar 和 widechar

Answer 3

postmessage返回false
用d7，不是ansichar的问题

Answer 4

getlasterror 的返回值是 0

Answer 5

procedure TForm1.btn1Click(Sender: TObject);
var
  vH: HWND;
  i:boolean;
  x:DWORD;
begin
  vH := findwindow('TfrmMain', PChar(cTitle));
  if vH = 0 then  Exit;
  i:=PostMessage(vH, WM_MiniSQLMsg, cMiniSqlStart, 0);
  if i=false then  ShowMessage('false');
  //x:=GetLastError();
  //ShowMessage(IntToStr(x));
  ShowMessage(SysErrorMessage(GetLastError));
end;