掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの２重起動防止（？）について (ID：12410)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コード部分が化けましたのでもう一回 program Project1; uses Forms, Windows, Messages, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} function EnumWndProc(hWindow:HWND;lData:LPARAM):BOOL;stdcall; begin result := true; if GetProp(hWindow,'HogeHogeHoge') = 98765 then begin SendMessage(hWindow,WM_SYSCOMMAND,SC_CLOSE,0); result := false; end; end; begin EnumWindows(@EnumWndProc,0); SetProp(Application.Handle,'HogeHogeHoge',98765); Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; RemoveProp(Application.Handle,'HogeHogeHoge'); end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.