掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スクリーンセーバーのプレビューを小さな画面の中に表示するには？ (ID:1273)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
CreateProcessでできました。 プロセスの管理は忘れずに。scrを終了せずに、アプリだけ終了すると、scrのプロセスがデーモン化します。 ScreenSaverNameに、起動したいスクリーンセーバのフルパスを用意。 PreviewPanelに、プレビューを表示。 var Si: TStartupInfo; Pi: TProcessInformation; begin { 新しいプロセスを作成 } GetStartupInfo(Si); CreateProcess(nil, PChar(ScreenSaverName + ' /P ' + IntToStr(PreviewPanel.Handle)), nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil,nil, Si, Pi); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.