ab.com コミュニティ

自分で書いておいてなんですが、イグトランス様のおっしゃるとおり、GetDesktopWindow() はいけません(^^;)

今回質問されている関数に関わらず、DialogBox 関数なども、親ウィンドウが無い場合は NULL を指定するほうが良いです。

今からしてみれば全く分かっていない頃に書いたもので、しかも内容が古くて申し訳ありません(_ _)

ちなみに「The Old New Thing」は翻訳されて本にもなっているので、手にとってみるのもいいかと思います。
今回のことに限らず、非常に役に立つことがたくさん書いてありました。おススメです！

む、なぜでしょう。

ということは、盾を表示するためにマニフェスト云々というのは間違っていたんですね。すいません。
マニフェストを追加したら盾が表示されたので、てっきり関係しているのかと思っていました。

それにしてもAB4は大丈夫で、AB5ではだめなのはなぜなのでしょうか。
すいません、全然解決になっていません。

インターネットを検索してみましたが、私の見た範囲ではどこも何も書いていませんでした。
当然のように盾が表示されているところがほとんどです。

私も少し前に試しましたが、このアイコンは、マニフェストを埋め込んで
アプリケーションのスタイルを変更していないと表示されないようです。

以下のページ
http://resume-next.hp.infoseek.co.jp/data/index.html
『ウィンドウ操作関連』の一番下のトピックスが参考になるかもしれません。

ありがとうございます。 残念ながらこのソフトはAB製ではないため、一番重要な埋め込む部分だけをAB文法に直して『実践コードモジュール』に投稿しておきました。 そのままコンパイルするだけで動くはずです。 ちなみにStyleConverterのソースの他の部分には、 ・コマンドラインからファイル名を切りだす。 ・すでにマニフェストが埋め込まれているかどうかチェックする(FindResource() 関数を使用)。 ・既存リソースが存在するかどうかチェックする(EnumResourceNames()関数) (よく分かりませんが、既存リソースがない時にマニフェストを埋め込むと、埋め込めないばかりか実行...

AB 4.24.00 でコンパイル＆正常に実行できることを確認しています。 このソースで埋め込み実験をする場合は、どうでもよいプログラムにアイコンなどのリソースを追加してから対して行ってください。 このソースを使ったことで実行ファイルが壊れても責任は負えません。 Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (pFileName As String, bDeleteExistingResources As Long) As HANDLE D...

二年ぶりくらいの新作(駄作?)公開です^^; 実行ファイルにマニフェストを埋め込むツールです。 …ActiveBasicの新しいバージョンを使えば最初から埋め込めるようですが。 こいつを作ってから気がつきました(笑) ActiveBasicの昔のバージョンを使っている方などはぜひ一度お試しください。 動作確認はXPとVistaで行いました。 マニフェストを埋め込んでおくと、XPのみならずVistaでもビジュアルがきれいになるんですね！ もちろんAB製ソフトウェア以外のソフトにも埋め込めます。 バグがあるかもしれませんが、埋め込みと同時に元のファイルのバックアップを 作成するような仕様になってい...

エクスプローラーでコピーする時に表示されるダイアログを表示するような方法でも良いのであれば、
というAPIを使う方法があります。

今は私はプログラミングができる環境にいないので、サンプルを出して提供することはできませんが
インターネットで
SHFileOperation Declare
などと入力して調べていただければ色々なサンプルが出てきます。

少なくとも自分で実装するのよりは楽だと思いますが、いかがでしょうか。
…ご参考までに。m(_ _)m

SPIRITです。

バグなのか仕様なのかわからないので、とりあえずこちらに投稿させていただきます。

_splitpath()の第一引数に のようにパスを指定すると、ドライブはともかく、ディレクトリとファイル名、拡張子が返ってきません。

このように指定した場合でもディレクトリ、ファイル名、拡張子が返ってくるようにしていただきたいのですが、いかがでしょうか。

返信が遅くなり、大変申し訳ございませんでした。 実験を行った結果、 Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ELM(ANYSIZE_ARRAY)) As LUID_AND_ATTRIBUTES End Type の ELM() はあってもなくても動作は変わりありませんでした。 Const ANYSIZE_ARRAY = 1 にすると反応しないようです。 以下のソースは私の環境で再起動に成功したものです。 Declare Function ExitWindowsEx Lib "user32" (uFlag...