名前
題名
▼ Mr.XRAYさん > ▼ TSさん > > 以下の図のようなテストプログラムを作成しましました． > これからテスト開始します． > で，ヘヘヘッ．ちょっと見えてきました．うん，もしかしたら... > > procedure TForm1.FormCreate(Sender: TObject); > begin > Memo1.Lines.Clear; > Memo1.font.Name := 'ＭＳ ゴシック'; > Memo1.Font.Size := 10; > Memo1.ScrollBars := ssVertical; > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > TheText : String; > hTargetWnd : HWND; > Flags : Cardinal; > begin > TheText := Trim(Edit1.Text); > hTargetWnd := FindWindowW(PChar(TheText), nil); > if hTargetWnd <> 0 then > begin > Memo1.Lines.Add(TheText + ' ' + IntToStr(hTargetWnd)); > > Flags := SWP_NOZORDER or SWP_SHOWWINDOW; > SetWindowPos(hTargetWnd, 0, 0, 0, 500, 800, Flags); > end; > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link