ウィンドウハンドルを取得し、フォームを最小化、最大化

プログラムヘッダによって見出さ//ハンドルプログラム
機能TfmPrintSet2.FindWindowByTitle（WINDOWTITLE：文字列）：HWND;
VARの
NextHandle：HWND;
NextTitle：チャーの配列[0..260];
開始
//最初得る
NextHandle：（=は、GetWindowをApplication.Handle、GW_HWNDFIRST）;
しばらくはNextHandle> 0でない
始める
ゲットタイトル//
; GetWindowText（NextHandle、NextTitle、255）
、その後）<> 0 IF順位（WINDOWTITLE、StrPas（NextTitleを）
始める
結果：; = NextHandle
終了]を、
終了し
、他の
//次の取得
NextHandleを：は、GetWindow（NextHandle、GW_HWNDNEXT）=;
END;
結果：= 0;
終了;

//最大化フォームの
手順TfmPrintSet2.MaxExWindow（TITLENAME：文字列）;
VARの
Indicador：HWND;
始まる
//プログラムウィンドウのタイトル名が取得し
Indicador：= FindWindowByTitle（TITLENAME）;
// finded IF
IF（Indicador <> 0）、その後に
始める
最小化//
;のShowWindow（Indicador、SW_MINIMIZE）
のShowWindow（Indicador、SW_MAXIMIZE）; // SW_MINIMIZE
終了;
終了;