得到当前活动窗体的标题

涛

转自：http://www.solokey.cn/
function  GetActiveWindowText: string;
var
  hnd: HWND;
  stlen: Integer;
begin
  hnd := GetForegroundWindow;
  stlen := GetWindowTextLength(hnd);
  SetLength(Result, stlen);
  GetWindowText(hnd, PChar(Result), stlen);
end;
顺便一提,GetActiveWindow只能得到调用进程内的窗体Handle.

ndsunl

以上程序在lazarus编译提示如下信息,请教如何解决

unit1.pas(33,12) Error: Identifier not found "HWND"
unit1.pas(33,12) Error: Error in type definition
unit1.pas(36,29) Error: Identifier not found "GetForegroundWindow"
unit1.pas(37,31) Error: Identifier not found "GetWindowTextLength"
unit1.pas(38,19) Error: Identifier not found "Result"
unit1.pas(38,19) Error: Variable identifier expected
unit1.pas(39,16) Error: Identifier not found "GetWindowText"
unit1.pas(39,34) Error: Identifier not found "Result"
unit1.pas(47) Fatal: There were 8 errors compiling module, stopping