深藍色論壇

代碼: 選擇全部

     
    function GetWindowText(wnd: HWND): WideString; 
    var  
      TextLength: Integer;  
      Text: PWideChar;  
    begin 
      Result := '';  
      if wnd = 0 then  
        Exit; 
      TextLength := SendMessageW(wnd, WM_GETTEXTLENGTH, 0, 0); 
      if TextLength <> 0 then  
      begin  
        GetMem(Text, TextLength * 2  + 1);  
        SendMessageW(wnd, WM_GETTEXT, TextLength + 1, Integer(Text));  
        Result := Text;  
        FreeMem(Text);  
      end;  
    end;