くだすれDelphi(超初心者用)その59【Embarcadero】

**デフォルトの名無しさん** · 2021/09/24(金) 11:16:27.40

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の救済をお願いします。

■ Delphi 11
http://www.embarcadero.com/jp/products/delphi

■ Delphi Community Edition (無料)
iOS、Android、Windows、macOS 向けアプリも開発可能。年間売上5000 US＄以内の商用開発可。
https://www.embarcadero.com/jp/products/delphi/starter

＜前スレ＞
くだすれDelphi(超初心者用)その58【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1583919039/

■ 便所の落書きレベルの個人的な悪口やきつい言葉（氏ねとか）は禁止だからな。
■ Embarcaderoヲッチャ的な内容も歓迎だ。

■ 誰も立てないから立てた。さあ語れ。

**デフォルトの名無しさん** · 2022/01/04(火) 10:43:20.36

>>180
Delphiで？WindowsMediaPlayerで？

**デフォルトの名無しさん** · 2022/01/04(火) 11:22:54.08

>>181

Delphi６と10.4に、WindowsMediaPlayerをココ見て入れてます。

https://chapmanworld.com/windows-media-player-in-delphi/

いろいろ調べて、ヒントのHPもありましたが、よくわかりませんでした。

**デフォルトの名無しさん** · 2022/01/04(火) 15:17:07.61

>>158
DelphiってWin32の上に作られてるんだから動くんじゃね

**デフォルトの名無しさん** · 2022/01/09(日) 20:28:54.76

ここさ、低レベルの質問にも答えられる奴いないんだ。
閉めたら。

**デフォルトの名無しさん** · 2022/01/09(日) 21:41:35.55

何年も前からいるMediaPlayerオジサンだと思う

**デフォルトの名無しさん** · 2022/01/09(日) 22:21:31.76

>>184
答える義務があると思ってんの？
馬鹿なの？

**デフォルトの名無しさん** · 2022/01/10(月) 12:56:15.48

>>186
お前はいらない

**デフォルトの名無しさん** · 2022/01/10(月) 14:17:41.84

てか今更ActiveXなんか使いたいととは思わない

まあ最悪、APIでウィンドウ・キャプチャして
コントール位置から画像を取得し
縮小すればサムネールになるのでは？
DRMの制約がばければ簡単にやれる

**デフォルトの名無しさん** · 2022/01/10(月) 20:05:52.12

>>187
教えてもらえなくて悔しいか？ボケ

**デフォルトの名無しさん** · 2022/01/10(月) 20:21:02.01

>>188
そう言う話が欲しかったんだよ。
ありがとう。

**デフォルトの名無しさん** · 2022/01/11(火) 10:44:04.39

ID:IgilbmVIとID:xoa25m9yは同じ人？それとも別人？

**デフォルトの名無しさん** · 2022/01/11(火) 20:34:28.70

いずれにしろdelphiユーザーのレベルが落ちた現実は間違いない。

**デフォルトの名無しさん** · 2022/01/12(水) 08:51:04.44

そもそも誰も使ってない

**デフォルトの名無しさん** · 2022/01/12(水) 22:19:52.58

できるやつは他に移っただけだろ

**デフォルトの名無しさん** · 2022/01/14(金) 15:57:00.11

>>192
みんな.NET移行したからな
スピード遅くてもマイクロソフト純正を皆選んだ

**デフォルトの名無しさん** · 2022/01/16(日) 12:43:16.96

例年なら11月頃出ていた翌年のRoad mapすら出てないもんな。

**デフォルトの名無しさん** · 2022/01/16(日) 14:09:00.96

　　　　?,へ､　　　　　　　　／＾i
　　　　?|?\〉｀ヽ-―ー--<　〈\?|
　　　　?7?　?,?--?、,?---　、　?ヽ
　　　?/　?/?　＼､i,?,ノ　?　?ヽ　?ヽ
　　　?|　?（-=・=-?　-=・=-?　）　　|?　　あらいぐま Pascal
　　　/　彡　　/?▼　ヽ　　ミミ　　　、?
　　く彡彡　　?_／＼_　　　　ミミミ　ヽ
　　　｀＜　　　?　　　　　　　?　ミミ彳ﾍ
　　　　?　＞　?　　　　　__＿／　　　＼
　　　　　/　　　　　　　　　7　　　　　　＼
　　　　　|　　　　　　　　／

**デフォルトの名無しさん** · 2022/01/16(日) 15:58:43.27

魔導師ラルバにいたね。

**デフォルトの名無しさん** · 2022/01/18(火) 19:31:17.19

.NETに移行するにはどうしたらいいですか？
お金かかりますか？

**デフォルトの名無しさん** · 2022/01/18(火) 19:37:55.78

VisualStudioにもCommunity版があるから無料で始められるんじゃね

**デフォルトの名無しさん** · 2022/01/21(金) 14:55:13.08

どんな回答を期待しているかわからんけど>>200の通り開発ツールは無料がある
Delphiのソースの移行をいってるならそりゃかかるだろうとしかいえない

**デフォルトの名無しさん** · 2022/01/21(金) 15:30:27.30

Delphi→VB.NET移行やってるソフトウェアハウスは存在する

**デフォルトの名無しさん** · 2022/01/21(金) 18:44:51.33

>>202
わざわざ糞から大糞に移行してんのか？ｗ

**デフォルトの名無しさん** · 2022/01/22(土) 19:52:30.36

質問です、お願いします。
Delphi6
普通のWindows メインフォーム表示のプログラムです。
コマンドラインでパラメータ付き起動自動処理させると
処理が終わるまでメインフォームが表示されません。

(Q1) メインフォームが表示されきってから処理に自動移行させるにはどういうソースにすればいいんでしょうか？

ググっても「メインフォーム非表示で処理をしたい」系統は拾えるのですが
処理中の経過インジケータ(ProgressBar)などを表示させたいのに
TForm1.FormCreate 最終に引数があれば→コマンドライン自動処理→プログラム自動終了
処理終わるまで非表示状態でプログラム終了時にチラっとフォームが表示されて終わってしまう。

(Q2) パラメータ -? /? など使用方法文字をWindowsのコマンドプロンプト画面に表示させるには？
uses
～, SysUtils, ～;
(略)
procedure TForm1.FormCreate(Sender: TObject);
if 0 < ParamCount then CmdLines;
end;

procedure TForm1.CmdLines;
begin
Application.ShowMainForm := True; // 有効指定にしても表示されなかった
// メインフォーム表示まで待機させたい
// 各種処理
Writeln('-? Question'); // 表示テスト　結果: I/O エラー (105)
end;

**デフォルトの名無しさん** · 2022/01/22(土) 20:28:19.97

>>204
確か起動時の最後のイベントはOnShowかOnActivateだったはず
起動時のイベントにコードを書いたときは、それが終了しないと
フォームの表示までたどり着かないんじゃないかな

さらに処理中にフォーム／コントロールを更新するには適宜
Application.ProcessMessages;
を挿入するとか．．．

**デフォルトの名無しさん** · 2022/01/22(土) 21:03:11.09

俺はCMShowingChangedを使ってる

**デフォルトの名無しさん** · 2022/01/22(土) 22:17:43.96

イベント内でやるよりスレッド立ち上げた方がよい気がす

**デフォルトの名無しさん** · 2022/01/22(土) 23:47:01.23

>>204
(Q1)
まだ出てない方法としては、Application.OnIdleで処理を行う。
このイベントは、何かの処理が全て終わって入力を受け付け始める寸前に発生する。
何かの処理には起動も含まれるので、起動処理が完全に終わった時点で初回の呼び出しが発生する。
初回のイベント時に、次から呼び出されないようにフラグを立てたりApplication.OnIdle=nilとしておく必要あり。
このような再発生防止が必要なのは他のTForm.OnShowやOnActivateでも同じ。

(Q2)
Writelnの出力先になる標準出力があるのはコンソールアプリだけなので、
VCLフォームアプリケーションでWritelnを使いたければdprファイルの２行目に{$APPTYPE CONSOLE}を追加する。
ただしこの方法ではGUIから起動してもコマンドプロンプトが開くので、
それが嫌な場合はWin32APIのCreateToolhelp32SnapshotやAttachConsoleを調べて、
自身の親プロセスがコマンドプロンプトなら標準入力を開いて書き込みをするコードを自力で書く。

**デフォルトの名無しさん** · 2022/01/23(日) 00:03:58.69

>>184 これを書いた馬鹿か

**デフォルトの名無しさん** · 2022/01/23(日) 15:15:22.96

>>204
タイマーを1回だけ発生させるか、
コンストラクタ辺りでユーザー定義イベントをPostMessageする

**デフォルトの名無しさん** · 2022/01/23(日) 15:17:52.24

>>210
タイマーとかｗｗｗ

**デフォルトの名無しさん** · 2022/01/23(日) 16:03:51.63

うん
それはない

**204** · 2022/01/23(日) 21:07:24.29

みなさんレスありがとうございます
(Q1)のメインフォーム表示後に処理を行うは
>>206 さんの CMShowingChanged の方法でうまくいけたようです。
コード名でググってズバリがあった！「くろねこ研究所 [Delphi] フォームの表示完了時」
h　ttps://www.blackcat　.xyz/article.php/ProgramingFAQ_del0049
>204 の TForm1.FormCreate 部分から↑ソースの「// 実際の処理を記入」部分に移動させると成功しました。

// 実際の処理を記入　に移動↓
if 0 < ParamCount then CmdLines;

(Q2) 使用方文をWindowsのコマンドプロンプト画面に表示させるのは
>>208
・・・・アキラメました！
上のフォームの表示完了時処理がうまくいった際に　ふと
フォーム表示させるんだから
-? 指定の場合、TMemo 出してそこに表示させて、自動終了させなければ良いじゃないか！？　と

**デフォルトの名無しさん** · 2022/01/23(日) 23:37:14.81

やっぱり馬鹿でしたとさ

**デフォルトの名無しさん** · 2022/01/25(火) 10:54:31.44

馬鹿って言う方が馬鹿！

**デフォルトの名無しさん** · 2022/01/25(火) 15:19:25.91

幼稚園児かよ

**デフォルトの名無しさん** · 2022/01/25(火) 19:36:11.37

>>209
無能のくせに黙ってろよ。

**デフォルトの名無しさん** · 2022/01/26(水) 14:42:01.08

>>213
起動オプションの説明だけなら
Dialogs.ShowMessage でもいいんでね

**デフォルトの名無しさん** · 2022/01/30(日) 17:33:29.46

TEdgeBrowserを使ってみたけど
edgeにインストールした拡張機能は無効になってるんだね
（WebView2の仕様か）

久しぶりにブラウザでテンコ盛りの広告を見た

**デフォルトの名無しさん** · 2022/01/31(月) 10:47:26.70

3.3が期限切れになったのでCommunity Edition 10.4をDLしようとしたのですができません。

無料版のページからメアドとパスワードを入れて先に進もうとすると
https://www.embarcadero.com/jp/
に飛ばされて
--------
エラー
SOAP-ERROR: Parsing WSDL: Couldn't load from 'https://members.embarcadero.com/ws/members.asmx?WSDL' : failed to load external entity "https://members.embarcadero.com/ws/members.asmx?WSDL";
--------
って表示されて、メールも来ません。
何を間違ってしまったのかしら。

**デフォルトの名無しさん** · 2022/02/06(日) 10:13:04.07

>>220
まあ大変！一体どうしたのかしら？

**デフォルトの名無しさん** · 2022/02/07(月) 02:55:34.53

https://www.embarcadero.com/jp/ はトライアル版用じゃね？

**デフォルトの名無しさん** · 2022/02/07(月) 09:27:04.90

久しぶりに使おうとしたら有効期限切れてた
めんどくさくなったからアンインストールしましたとさ
この辺はVSの方が全然いいな

**デフォルトの名無しさん** · 2022/02/09(水) 22:04:22.52

PC替えたけど今度こそDelphi7インスコやめようか思案中
どうせVCL山ほど入れないと動かないのだらけだし面倒になってきた年だわ

**デフォルトの名無しさん** · 2022/02/10(木) 00:28:20.61

インスコと書いてる時点で頭の悪さがわかる

**デフォルトの名無しさん** · 2022/02/10(木) 00:51:52.47

シコシコしてから寝るかな

**デフォルトの名無しさん** · 2022/02/10(木) 22:15:58.15

>>225
自分だって書いてるじゃんけインスコｗ

**デフォルトの名無しさん** · 2022/02/10(木) 23:22:33.13

小麦粉、砂糖、ラードを主原料とした焼き菓子

**デフォルトの名無しさん** · 2022/02/11(金) 17:32:25.30

インスタage

**デフォルトの名無しさん** · 2022/02/11(金) 23:28:10.47

もしかして：ユニフォームの下に身に着ける下着

**デフォルトの名無しさん** · 2022/02/14(月) 15:39:28.05

27周年って全然区切りよくないやん

**デフォルトの名無しさん** · 2022/02/14(月) 18:52:04.25

Delphi 11のCEはいつになるんだろう？

FMX（CE版Sydney）アプリでOneDriveに履歴を保存していて
（Windowsアカウント）認証にTWebBrowserを使ってるんだけど
Macとかモバイルとかは大丈夫だけど
IEを使うWindowsでは拒否されるようになった

**デフォルトの名無しさん** · 2022/02/15(火) 08:28:47.47

>>232
よくわからないけど、その不具合がDelphi 11で解決しそうなの？
それはTEdgeBrowserを使うべき案件じゃない？

**デフォルトの名無しさん** · 2022/02/15(火) 08:48:21.99

>>233
11のFMXのTWebBrowserにはWindowsEngineていうプロパティがあって
EdgeIfAvailableかEdgeOnlyにするとEdgeが使われるらしい

**デフォルトの名無しさん** · 2022/02/15(火) 10:02:30.60

>>232
次のメジャーアップデートの後のはず。

例えば、今のバージョンが11.0.0だと仮にすると
次のアップデートが11.0.1、11.0.2、11.0.3と出て
次のメジャーアップデートが11.1.0としてリリースされたら
11.0.3がCEになるってYouTubeLiveで言っていたね。
長くて2年ぐらい後？

**デフォルトの名無しさん** · 2022/02/15(火) 14:15:46.85

今やってる修正版ベータ、11.1 だぞ

**デフォルトの名無しさん** · 2022/02/15(火) 15:44:58.32

>>234
11は触ったことがないが、10.4のTWebBrowserでも
SelectedEngineプロパティでEdgeIfAvailable・EdgeOnlyは設定できるが？

それにChromiumベースのブラウザを使いたいのなら
>>233が言うようにTEdgeBrowserを使う方がいい。

**デフォルトの名無しさん** · 2022/02/16(水) 01:03:04.48

>>237
ええと>>232で言ってるようにFMXアプリで使うTWebBrowserの話なんだが
FMXのTWebBrowserはVCLより1世代遅れてる

**デフォルトの名無しさん** · 2022/02/16(水) 07:33:24.36

>>232
いまんところDelphi11はバグだらけだからな
CEだしても悪評が立つだろう

**デフォルトの名無しさん** · 2022/02/16(水) 09:24:38.62

>>239
バグだらけとは具体的にどこの何がバグですか？と
太ったmvpがキレて聞いてきそうｗ

**デフォルトの名無しさん** · 2022/02/16(水) 15:22:54.72

Delphi 10.4.2 Community Edition で

TIdHTTP と TIdSSLIOHandlerSocketOpenSSL を使って
HTTPSサーバーからファイルをダウンロードしようとしています

テストした窓の杜からはダウンロードは出来るのですが
https://dforest.watch.impress.co.jp/library/e/...

目的のマイクロソフト関連サーバーからダウンロードすると
Socket Error #10054　で切断されてしまいます
https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip

両方ともIrvineでダウンロードができたので
UserAgentは、Irvine/1.3.0
SSLOptions.Methodは、sslvTLSv1_2
SSLOptions.SSLVersionsは、[sslvTLSv1_2]
にしています
あとはCreateした状態のままです

Irvineのログを比較したら途中から違うのはわかるのですが
どこを設定したらいいのかわからないのでお願いします

**デフォルトの名無しさん** · 2022/02/16(水) 19:30:04.90

普通にダウンロードできるようです
function GetStreamFrom(URL: string): TMemoryStream;
var IdHTTP: TIdHTTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Cookie: TIdCookieManager;
begin
result := TMemoryStream.Create;
IdHTTP := TIdHTTP.Create(nil);
IdHTTP.ReadTimeout := 20000;
IdHTTP.ConnectTimeout := 20000;
IdHTTP.RedirectMaximum := 16;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/98.0.4758.80 Safari/537.36 Edg/98.0.1108.50';
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
IdHTTP.IOHandler := SSL;
Cookie := TIdCookieManager.Create(nil);
IdHTTP.CookieManager := Cookie;
IdHTTP.AllowCookies := true;
try try
IdHttp.Get(URL, result); result.Seek(0, TSeekOrigin.soBeginning);
except on e: exception do begin ShowMessage(URL + ':', e.Message); freeAndNil(result); end; end;
finally FreeAndNil(SSL); FreeAndNil(Cookie); IdHTTP.Free; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
begin
Stream := GetStreamFrom('https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip');
if Stream <> nil then begin Stream.SaveToFile(AppDir + PathDelim + 'edgedriver_win32.zip'); Stream.free; end;
end;

**デフォルトの名無しさん** · 2022/02/16(水) 19:34:07.39

ちなみに TIdHTTP の error 10054 は注意が必要です
一度これが発生するとTIdHTTPを再作成しないと、それ以降の通信ができなくなります
（もしかしたら改善されてるかも）

**デフォルトの名無しさん** · 2022/02/16(水) 21:18:01.22

>>240
QC見ればIDE関連の不具合が多い
俺が最初に遭遇したのは高DPIじゃない環境で動かすとIDEのウインドウが画面の縁に貼り付いて動かせなくなるやつ。

今は起動時に /highdpi:unaware のオプションを付けて回避している

**235** · 2022/02/17(木) 08:55:08.32

>>236
そうなんだ。

メジャーアップデートしたら次は、12になるのかな？

**デフォルトの名無しさん** · 2022/02/17(木) 13:02:13.73

>>242
教えてもらったコードでダウンロードできるようになりました
あとOpenSSLのDLLが少し古かったのも原因でした
ありがとうございました

**デフォルトの名無しさん** · 2022/02/17(木) 19:28:14.46

SSLのことを考えるとTNetHTTPClientを使った方が楽
あとファイルをダウンロードするんだったらgzip圧縮とかが必須になるけどIndyよりTNetHTTPClientの方が分かりやすい

NetHTTPClient := TNetHTTPClient.Create(nil);
NetHTTPClient.ConnectionTimeout := 20000;
NetHTTPClient.ResponseTimeout := 20000;
NetHTTPClient.SendTimeout := 20000;
NetHTTPClient.AllowCookies := true;
NetHTTPClient.MaxRedirects := 8;
NetHTTPClient.HandleRedirects := true;
NetHTTPClient.Accept := 'text/html, ...略';
NetHTTPClient.AcceptLanguage := 'ja,en-US;q=0.9,en;q=0.8';
NetHTTPClient.UserAgent := 'Mozilla/5.0 ...略';

var AcceptEncoding: string := 'gzip, deflate, br'; // 圧縮を指定
NetHTTPClient.AcceptEncoding := AcceptEncoding;
if AcceptEncoding.Contains('gzip') then NetHTTPClient.AutomaticDecompression := [THTTPCompressionMethod.GZip];
if AcceptEncoding.Contains('deflate') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Deflate];
if AcceptEncoding.Contains('br') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Brotli];

var Response: IHTTPResponse := NetHTTPClient.Get(Url, Stream);
if Response.StatusCode <> 200 then FreeAndNil(Stream);

**デフォルトの名無しさん** · 2022/02/18(金) 16:49:44.77

修正も終わりDLLも必要なくなりシンプルになりました
Delphi6から移行したてだったのでいい方法も教えていただき感謝です

**デフォルトの名無しさん** · 2022/02/18(金) 17:04:34.18

docwiki.embarcadero.com が死んでて、調べ事が進まん

**デフォルトの名無しさん** · 2022/02/19(土) 04:39:16.68

https://thenewstack.io/microsofts-programming-language-czar-anders-hejlsberg-the-interview/

**デフォルトの名無しさん** · 2022/02/20(日) 02:23:09.23

>docwiki.embarcadero.com が死んでて
ウクライナ紛争が落ち着くまでは無理かなぁ

**デフォルトの名無しさん** · 2022/02/21(月) 20:31:49.53

われらが MVP 様が LGPL に関してデマを流しているのだけど、どうしようか。
会社レベルでやらかしていそうで、大事にしたほうが良いかしら。

**デフォルトの名無しさん** · 2022/02/24(木) 18:41:10.97

ttps://twitter.com/TodaProduction/status/1496697218346414080
>この人、いつも色々と教えてくれるんだけど、正直言ってこの人のお陰で「何かが解決した」ことは一度も無い

吐駄に言われとる。けど、これが現実の評価なのよん > MVP
https://twitter.com/5chan_nel (5ch newer account)

**デフォルトの名無しさん** · 2022/02/24(木) 20:38:03.44

>>253
めんどくさい奴だなお前

**デフォルトの名無しさん** · 2022/02/25(金) 07:49:28.25

>>253
https://twitter.com/TodaProduction/status/1496656335790047232
BeginThread関数にローカル変数へのポインタ渡しているバグがあるね。
todaはMVPに感謝しろよな
https://twitter.com/5chan_nel (5ch newer account)

**デフォルトの名無しさん** · 2022/02/25(金) 23:29:17.57

うーん、なんでMVPごときに粘着するのかなぁ
Delphiの世界が小さくなり過ぎた弊害か

**デフォルトの名無しさん** · 2022/02/27(日) 02:53:06.55

「タケノコ生活」
ttps://www.weblio.jp/content/%E3%82%BF%E3%82%B1%E3%83%8E%E3%82%B3%E7%94%9F%E6%B4%BB
四半世紀前の遺物に喜んでるようじゃなぁ

**デフォルトの名無しさん** · 2022/03/02(水) 05:34:44.87

>>256
5chなんてどこも粘着嵐ばっかりだし
嫌なら離れるか板ローカル、スレッドローカルあぼーん付きブラウザ使えばいい

**デフォルトの名無しさん** · 2022/03/04(金) 23:32:35.94

正直あの執着心は全く理解できない
27周年だとか、25周年だから何だというのか
何がそんなにうれしいのか？

**デフォルトの名無しさん** · 2022/03/05(土) 08:39:06.97

記念して御祝儀で購入してほしいということでは

特に年表が痛々しい
ttps://blogs.embarcadero.com/delphi-anniversary-innovation-timeline-infographic/

記念してDelphiやC++BuilderのVer1.0を無償公開してるけど、
動作環境を整備する方が大変だろうね

**デフォルトの名無しさん** · 2022/03/06(日) 07:51:23.98

>動作環境を整備する方が大変だろうね
「ボクインストールできまちゅ！」
って九州の田舎もんがいるじゃん

**デフォルトの名無しさん** · 2022/03/06(日) 08:26:22.06

ここも妬み、僻み、愚痴ばかりのスレになってしまったな

**デフォルトの名無しさん** · 2022/03/06(日) 10:04:03.62

いつも命令口調のモデレーターまだ居るの？

**デフォルトの名無しさん** · 2022/03/07(月) 03:07:21.97

一方的蹂躙が起きなかったので長引きそうだ。リビブ住民にとっては、キエフを放り出して
西部だけで独立したいんだろうけど。
そこらへんが収まるまで docwiki.embarcadero.com は死んだままですね

**デフォルトの名無しさん** · 2022/03/08(火) 11:12:37.93

Delphiから外部アプリをCreateProcessでStartupInfo.wShowWindow:=SW_MINIMIZEを指定して最小化状態で呼び出すプログラムを書いているんだけど、
このアプリが作業進行状況を表示させるウィンドウを通常表示するので困ってる
この進行状況ウィンドウも最小化で表示させる方法はないだろうか？
今はEnumWindowsで列挙して見つけ次第最小化という力技で対処してるけどアクティブウィンドウが頻繁に切り替わってあまり良いやり方じゃ無いと思う

**デフォルトの名無しさん** · 2022/03/08(火) 14:06:55.89

>>265
作業進行状況を表示させるウィンドウって何？起動時スプラッシュウィンドウのこと？

そうじゃなくてホントに何かの作業中に表示されるウィンドウなら
相談する相手はその外部アプリの方みたいな気もする

**デフォルトの名無しさん** · 2022/03/08(火) 14:24:03.35

そんなことは100も承知での質問でしょ

**デフォルトの名無しさん** · 2022/03/08(火) 23:06:57.27

>100も承知での質問
ここに書いている時点で１つも分ってないだろう。
CreateProcessはDelphiの関数でも無いし、外部アプリが何かも分らない。

**デフォルトの名無しさん** · 2022/03/08(火) 23:18:40.11

過疎のDelphiよりWin32スレで質問した方がよさそう

**デフォルトの名無しさん** · 2022/03/09(水) 05:12:14.33

対象を限定しない方法としてはグローバルフックでウィンドウ制御を乗っ取る
WH_CBT辺りだけでいけるのか対象のアドレステーブルを
書き換えてAPI呼び出しへの介入まで必要かは知らんけど

**265** · 2022/03/09(水) 09:36:50.72

>>270
ありがとう
フックで処理する方法よさげですね
ちょっとMr.XRAYさんのサイト参考に勉強してみます

[ 280_アプリケーションの起動を知る WH_CBT フック ] - Mr.XRAY
http://mrxray.on.coocan.jp/Delphi/plSamples/280_HookCBTActivate.htm

**デフォルトの名無しさん** · 2022/03/14(月) 16:48:37.31

CUTT System から本が8800円(税込)で発売されるけど、買う人いますか？

OBJECT PASCAL HANDBOOK Delphi 11 Edition
ttps://www.cutt.co.jp/book/978-4-87783-521-7.html

**デフォルトの名無しさん** · 2022/03/14(月) 19:23:43.69

面白そうやん
図書館に買ってもらお
昔中村さんの画像の本も買ってもらったっけ…遠い記憶

**デフォルトの名無しさん** · 2022/03/14(月) 23:04:34.69

1000冊も売れるだろうか？
高いし、いまさら誰が買うんだ？

**デフォルトの名無しさん** · 2022/03/15(火) 12:22:03.55

どうせすぐ12とか出て意味なくなるんでしょ

**デフォルトの名無しさん** · 2022/03/15(火) 13:08:21.58

Delphiの案件はC#やVB.NETへの移行が多いなw

**デフォルトの名無しさん** · 2022/03/15(火) 14:22:33.47

増える転出案件ｗ

**デフォルトの名無しさん** · 2022/03/15(火) 20:20:43.08

新規案件でDelphiなんてほとんどないしな
もう買うだけ無駄

**デフォルトの名無しさん** · 2022/03/15(火) 21:14:18.52

>>272
現場では古いDelphiか新しくてもマイグレで新機能を使わないから
新機能を勉強してみたいと思っていた（特にジェネリクスと無名メソッド）
電子書籍なら買うかも。

>>275
Delphiのバージョンの付け方を知らないのか？
Delphi12は出ないぞ、次はDelphi11.2だ。
(Windows10→Delphi10.x Windows11→Delphi11.x)

**デフォルトの名無しさん** · 2022/03/15(火) 21:19:18.81

>>279
>Delphiのバージョンの付け方を知らないのか？
そんなこと普通は知らんだろ、興味もないし
ベルリンだかトーキョーだか得意気に、どーでもいいっての