名前
題名
▼ Mr.XRAYさん > > (1)は，フック(WH_CALLWNDPROCRET)でないとできないかも知れません． > > えっと，WndProcで取得できそうです． > テストしてみました． > 続きは明日以降ということで． > 動作確認環境は， Windows XP(SP3) + Delphi2010 > > function GetWindowTextStr(hWindow: HWND): String; > var > Buffer : Array[0..MAX_PATH-1] of char; > begin > Result := ''; > if (GetWindowText(hWindow, Buffer, MAX_PATH)<>0) then begin > Result := Buffer; > end; > end; > > procedure TplExcelFormEx2.WndProc(var Message: TMessage); > var > ACaption : String; > begin > inherited; > > if Message.Msg = WM_ACTIVATE then begin > ACaption := GetWindowTextStr(Message.lParam); > Caption := ACaption; > end; > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link