質問編集履歴
2
ソースコードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -179,4 +179,86 @@
|
|
|
179
179
|
extern PACKAGE TForm1 *Form1;
|
|
180
180
|
//---------------------------------------------------------------------------
|
|
181
181
|
#endif
|
|
182
|
+
```
|
|
183
|
+
|
|
184
|
+
＜TotalProject.cpp＞
|
|
185
|
+
```C++
|
|
186
|
+
//---------------------------------------------------------------------------
|
|
187
|
+
|
|
188
|
+
#include <vcl.h>
|
|
189
|
+
#pragma hdrstop
|
|
190
|
+
#include <tchar.h>
|
|
191
|
+
//---------------------------------------------------------------------------
|
|
192
|
+
USEFORM("Unit1.cpp", Form1);
|
|
193
|
+
//---------------------------------------------------------------------------
|
|
194
|
+
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
|
|
195
|
+
{
|
|
196
|
+
try
|
|
197
|
+
{
|
|
198
|
+
Application->Initialize();
|
|
199
|
+
Application->MainFormOnTaskBar = true;
|
|
200
|
+
Application->CreateForm(__classid(TForm1), &Form1);
|
|
201
|
+
// ここに入れても親タスクおよび子タスクのアイコンは消えず．
|
|
202
|
+
SetWindowLong(Application->Handle, GWL_EXSTYLE, GetWindowLong(Application->Handle, GWL_EXSTYLE) | WS_EX_TOOLWINDOW);
|
|
203
|
+
Application->Run();
|
|
204
|
+
}
|
|
205
|
+
catch (Exception &exception)
|
|
206
|
+
{
|
|
207
|
+
Application->ShowException(&exception);
|
|
208
|
+
}
|
|
209
|
+
catch (...)
|
|
210
|
+
{
|
|
211
|
+
try
|
|
212
|
+
{
|
|
213
|
+
throw Exception("");
|
|
214
|
+
}
|
|
215
|
+
catch (Exception &exception)
|
|
216
|
+
{
|
|
217
|
+
Application->ShowException(&exception);
|
|
218
|
+
}
|
|
219
|
+
}
|
|
220
|
+
return 0;
|
|
221
|
+
}
|
|
222
|
+
//---------------------------------------------------------------------------
|
|
223
|
+
```
|
|
224
|
+
|
|
225
|
+
＜Windows SDKにSetWindowLongを追加したソース＞
|
|
226
|
+
```C++
|
|
227
|
+
//---------------------------------------------------------------------------
|
|
228
|
+
|
|
229
|
+
#include <vcl.h>
|
|
230
|
+
#pragma hdrstop
|
|
231
|
+
#include <tchar.h>
|
|
232
|
+
//---------------------------------------------------------------------------
|
|
233
|
+
USEFORM("Unit1.cpp", Form1);
|
|
234
|
+
//---------------------------------------------------------------------------
|
|
235
|
+
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
|
|
236
|
+
{
|
|
237
|
+
try
|
|
238
|
+
{
|
|
239
|
+
Application->Initialize();
|
|
240
|
+
Application->MainFormOnTaskBar = true;
|
|
241
|
+
Application->CreateForm(__classid(TForm1), &Form1);
|
|
242
|
+
// ここに入れても親タスクおよび子タスクのアイコンは消えず．
|
|
243
|
+
SetWindowLong(Application->Handle, GWL_EXSTYLE, GetWindowLong(Application->Handle, GWL_EXSTYLE) | WS_EX_TOOLWINDOW);
|
|
244
|
+
Application->Run();
|
|
245
|
+
}
|
|
246
|
+
catch (Exception &exception)
|
|
247
|
+
{
|
|
248
|
+
Application->ShowException(&exception);
|
|
249
|
+
}
|
|
250
|
+
catch (...)
|
|
251
|
+
{
|
|
252
|
+
try
|
|
253
|
+
{
|
|
254
|
+
throw Exception("");
|
|
255
|
+
}
|
|
256
|
+
catch (Exception &exception)
|
|
257
|
+
{
|
|
258
|
+
Application->ShowException(&exception);
|
|
259
|
+
}
|
|
260
|
+
}
|
|
261
|
+
return 0;
|
|
262
|
+
}
|
|
263
|
+
//---------------------------------------------------------------------------
|
|
182
264
|
```
|
1
「Visual C++」タグの削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|