Проект по F9 компилируется, но не запускается

@Shabaha · Регистрация: 02.02.2015

Студворк — интернет-сервис помощи студентам

После нажатия на F9 проект компилируется но не запускается...что в такой ситуации делать?
Form->Visible в true стоит.
Я уже потерял все надежды

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MainCpp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMain *Main;
String sName;
String sSurname;
String sFirstName;
String sDate_of_Birth;
String sAdress;
String sDateToday;
 
//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
        : TForm(Owner)
{
}  
//---------------------------------------------------------------------------
void __fastcall TMain::CheckOBClick(TObject *Sender)
{
if (CheckOB->Checked)
{
CheckOB_LMP_Date->Visible = true;
CheckOB_GA->Visible = true;
OB_Date_Label->Visible = true;
OBLabel->Visible = true;
}
else
{
CheckOB_LMP_Date->Visible = false;
CheckOB_GA->Visible = false;
OB_Date_Label->Visible = false;
OBLabel->Visible = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TMain::AddTextInWord(String bookmark, String _Text)
{
//Метод вставки текста на место закладок
//Первый параметр - имя закладки
//Второй параметр - текст для вставки
  vSelection.OleProcedure("GoTo",(int)-1,0,0,WideString(bookmark));
  vSelection.OlePropertySet("Text", WideString(_Text));
  vSelection.OleProcedure("Collapse", (Variant)0);
}
//---------------------------------------------------------------------------
void __fastcall TMain::ButtonOkClick(TObject *Sender)
{
//Проверка на заполненность полей ввода
if(SetName->Text.Trim().IsEmpty() || SetDayBirth->Text.Trim().IsEmpty() || SetMonthBirth->Text.Trim().IsEmpty() || SetYearBirth->Text.Trim().IsEmpty())
   {
     ShowMessage("Не все поля ввода заполнены\nПовторите ввод");
     return;
   }
char* FileName[25];
 sName = SetName->Text;
 sSurname = SetSurname->Text;
 sFirstName = SetFirstName->Text;
 sDate_of_Birth = SetDayBirth->Text + "/" + SetMonthBirth->Text + "/" + SetYearBirth->Text;
 sAdress = SetAdress->Text;
//-----------------------------------------------------------------------------
if (CheckOchP->Checked == true)
{
*FileName = "OchP.doc";
if (FileExists(*FileName))
{
//-----------------------------------------------------------------------------
//Проверка на наличие файла-шаблона
String fTPL = ExtractFilePath(Application->ExeName) + "OchP.doc";
if (!FileExists(fTPL))
{
        ShowMessage("Отсутствует файл шаблона\nРабота невозможна");
        return;
}
//Проверяем наличие выходной папки. Если нет - создаем ее
String OutPath = ExtractFilePath(Application->ExeName) + "DataBase\\2015 Year\\I Path\\";
  if(!DirectoryExists(OutPath)) MkDir(OutPath);
//Задаем новое имя с путем для сохранения и копируем шаблон
String fOutput = String().sprintf("%s%s %s%s %s%s.doc", OutPath, sSurname, sName);
CopyFile(fTPL.c_str(), fOutput.c_str(), 0);
//Открываем Word
  try
   {
     vApp = CreateOleObject("Word.Application");
   }
  catch(...)
   {
     MessageBox(0, "Ошибка при открытии Word", "Ошибка", MB_OK);
     return;
   }
  vApp.OlePropertySet("Visible",true);
  vDoc = vApp.OlePropertyGet("Documents").OleFunction("Open", WideString(fOutput));
  vSelection = vApp.OlePropertyGet("Selection");
//Вставляем текст в первую метку
  AddTextInWord("Name", sName);
//Вставляем текст во вторую метку
  AddTextInWord("Surname", sSurname);
//Вставляем текст в третью метку
  AddTextInWord("BDay", sDate_of_Birth);
  AddTextInWord("FirstName", sFirstName);
  AddTextInWord("Adress", sAdress);
  AddTextInWord("DateToday", sDateToday);
//Сохраняем документ
  vDoc.OleProcedure("Save");
//-----------------------------------------------------------------------------
//ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckOchP->Checked = false;
}
else
{
ShowMessage("File OchP.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckThyroid->Checked == true)
{
*FileName = "Thyroid.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckThyroid->Checked = false;
}
else
{
ShowMessage("File Thyroid.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckRen->Checked == true)
{
*FileName = "Ren.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckRen->Checked = false;
}
else
{
ShowMessage("File Ren.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckGinecology->Checked == true)
{
*FileName = "Ginecology.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckGinecology->Checked = false;
}
else
{
ShowMessage("File Ginecology.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckProstate->Checked == true)
{
*FileName = "Prostate.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckProstate->Checked = false;
}
else
{
ShowMessage("File Prostate.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckOB->Checked == true)
{
*FileName = "OB.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckProstate->Checked = false;
}
else
{
ShowMessage("File OB.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------
 
//ShellExecute(Handle, "open", "D:\\OchP.doc",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMain::ShowPatientClick(TObject *Sender)
{
 sName = SetName->Text;
 sSurname = SetSurname->Text;
 sFirstName = SetFirstName->Text;
 sDate_of_Birth = SetDayBirth->Text + "/" + SetMonthBirth->Text + "/" + SetYearBirth->Text;
 sAdress = SetAdress->Text;
ShowMessage(sSurname + " " + sName + " " + sFirstName + " " + sDate_of_Birth + Date());
}
//---------------------------------------------------------------------------

@D1973 · 19.04.2015, 15:18

Не по теме:

format c: :D
А если серьезно - есть смысл посмотреть в сторону грандиозной чистки компа (вирусы, bad-сектора на HDD, зафаршированный реестр, тупо места нет, да, блин, даже солнечные пятна не так расположились, кто-ж его знает, что там на твоей машинке творится)

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@D1973
	19.04.2015, 15:18
	Не по теме: format c: :D А если серьезно - есть смысл посмотреть в сторону грандиозной чистки компа (вирусы, bad-сектора на HDD, зафаршированный реестр, тупо места нет, да, блин, даже солнечные пятна не так расположились, кто-ж его знает, что там на твоей машинке творится) 0