Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15

Исправить ошибки в коде

22.03.2015, 14:43. Показов 1778. Ответов 14
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
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
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300

#include <windows.h>
#include <mmsystem.h>
 
#include <vcl.h>
#pragma hdrstop
#include "IniFiles.hpp"
#include <Tlhelp32.h>
#include "Unit1.h"
#include <tchar.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
wchar_t *pName;
TMenuItem *M;
UnicodeString Start;
UnicodeString Plus;
String Capt;
String CFG;
int A;
 
void DeleteDir(String Folder)
{
  if(DirectoryExists(Folder))
   {
     TCHAR cDest[MAX_PATH] = {0};
     _tcscpy(cDest, Folder.c_str());
     SHFILEOPSTRUCT fos;
     memset(&fos, 0, sizeof(SHFILEOPSTRUCT));
     fos.hwnd = Application->Handle;
     fos.wFunc = FO_DELETE;
     fos.pFrom = cDest;
     fos.fFlags = FOF_SILENT | FOF_NOERRORUI | FOF_NOCONFIRMATION;
     SHFileOperation(&fos);
   }
}
void __fastcall TForm1::N1Click(TObject *Sender)
{
 
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   A = ((TMenuItem *)Sender)->Tag;
   BitBtn1->Enabled = true;
   SetLaunchParam();
}
void __fastcall TForm1::OpenFolderClick(TObject *Sender)
{
 
   ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).c_str(), NULL,NULL,SW_SHOWNORMAL);
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
  if(FileExists(L"click.wav"))
  {
    PlaySound(L"click.wav", NULL, SND_FILENAME);
  }
 
  ShellExecute(NULL,L"open",Start.c_str(),Plus.c_str(),NULL,SW_SHOW);
}
bool ProcessStart(wchar_t *pName)
{
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if(Hndl == INVALID_HANDLE_VALUE) return false;
  PROCESSENTRY32 ProcessEntry;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(Hndl, &ProcessEntry);
  while (Loop)
   {
     if (wcscmp(ProcessEntry.szExeFile, pName) == 0)
       {
         CloseHandle(Hndl);
         return true;
       }
     Loop = Process32Next(Hndl, &ProcessEntry);
   }
  return false;
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
  pName = String(ExtractFileName(Start)).c_str();
  if(! ProcessStart(pName))
   {
    DeleteDir(L"Folder1");
    DeleteDir(L"Folder2");
    DeleteDir(L"Folder3");
    TSearchRec SR;
    if(FindFirst("*.log", faAnyFile, SR) == 0)
   {
     do
       DeleteFile(SR.Name);
     while (FindNext(SR) == 0);
     FindClose(SR);
   }
  ChDir(ExtractFilePath(Application->ExeName));
 
     BitBtn1->Caption = "Старт " + Capt + " [Off]";
     BitBtn1->Enabled = true;
     Menu->Enabled = true;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_ENABLED);
   }
  else
   {
     BitBtn1->Caption = Capt + " [On]"; /
     BitBtn1->Enabled = false;
     Menu->Enabled = false;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_GRAYED);
   }
  Application->ProcessMessages();
}
enum MouseInButton_e {emibLeave, emibEnter, emibDown, emibUp};
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner),
  ColorEnter(StringToColor(L"0xdf0064")),
  ColorLeave(StringToColor(L"0x7a0055")),
  ColorEnterExit(StringToColor(L"0x0000c8")),
  ColorLeaveExit(StringToColor(L"0x000064")),
  ButtonWidth(20),
  ButtonHeight(30),
  CaptionPanelHeight(30)
{
  #ifndef FormStyle
   MouseLBDown = false;
  #endif
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   CaptionPanel = new TPanel( this );
  CaptionPanel->Parent = this;
  CaptionPanel->Height = CaptionPanelHeight;
  CaptionPanel->Align  = alTop;
  CaptionPanel->ParentBackground = false;
  CaptionPanel->Color  = ColorLeave;
  CaptionPanel->OnMouseDown = this->PanelMouseDown;
  CaptionPanel->OnMouseUp = this->PanelMouseUp;
  CaptionPanel->OnMouseMove = this->PanelMouseMove;
  CaptionPanel->Caption = this->Caption;
  CaptionPanel->Font->Style = TFontStyles() << fsBold;
  CaptionPanel->Font->Color = clWhite;
  SBMin = new TShape( this );
  SBExt = new TShape( this );
  TShape *pTempShape;
  for( unsigned index = 0; index < this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
     {
        pTempShape = static_cast<TShape*>( Components[index] );
        pTempShape->Parent  = CaptionPanel;
        pTempShape->Width   = ButtonWidth;
        pTempShape->Height  = ButtonHeight;
        pTempShape->Top     = CaptionPanel->Height/2 - ButtonHeight/2;
        pTempShape->Shape   = stRoundSquare;
        pTempShape->Tag     = emibLeave;
        pTempShape->Brush->Color = ColorLeave;
        pTempShape->Pen->Color   = clWhite;
        pTempShape->OnMouseLeave = this->ShapeMouseLeave;
        pTempShape->OnMouseEnter = this->ShapeMouseEnter;
        pTempShape->OnMouseDown  = this->ShapeMouseDown;
        pTempShape->OnMouseUp    = this->ShapeMouseUp;
     }
  SBMin->Name = L"SBMin";
  SBMin->Hint = L"Свернуть";
  SBExt->Name = L"SBExit";
  SBExt->Hint = L"Закрыть";
  SBExt->Brush->Color = ColorLeaveExit;
  SBMin->Left = CaptionPanel->Width - ButtonWidth * 1.8 ;
  SBExt->Left = CaptionPanel->Width - ButtonWidth/2;
  this->BorderStyle = bsNone;
  this->Position = poDesktopCenter;
 
 
  CFG = ExtractFilePath(Application->ExeName) + L"Settings.cfg";
  if(FileExists(CFG))
   {
 
     TIniFile *Ini = new TIniFile(CFG);
     int mTag = Ini->ReadInteger("MENU","CHECKED",0);
     for(int i = 0; i < Form1->ComponentCount; i++)
      {
        if(Components[i]->ClassNameIs("TMenuItem"))
         if(((TMenuItem *)Components[i])->Tag == mTag)
          {
            A = mTag;
            ((TMenuItem *)Components[i])->Checked = true;
            Capt = ((TMenuItem *)Components[i])->Caption;
            BitBtn1->Caption = Capt;
            SetLaunchParam();
          }
      }
     delete Ini;
   }
}
void __fastcall TForm1::ShapeMouseEnter(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibEnter;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseLeave(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibLeave;
  ButtonUpdate();
}
void __fastcall TForm1::ButtonUpdate()
{
  TColor CurrColor(0);
  for( unsigned index=0; index<this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
      {
        if( static_cast<TShape*>( Components[index] )->Tag == emibEnter )
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorEnter;
            else
                CurrColor = ColorEnterExit;
          }
        else
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorLeave;
            else
                CurrColor = ColorLeaveExit;
          }
        static_cast<TShape*>( Components[index] )->Brush->Color = CurrColor;
      }
}
void __fastcall TForm1::PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
#ifndef FormStyle
  if( MouseLBDown )
   {
     static TPoint tp;
     tp.X = X;
     tp.Y = Y;
     tp = ClientToScreen(tp);
     this->Left = tp.x - MouseDownCaptionXY.X;
     this->Top = tp.Y - MouseDownCaptionXY.Y;
   }
#endif
}
void __fastcall TForm1::PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = true;
  MouseDownCaptionXY.X = X;
  MouseDownCaptionXY.Y = Y;
#else
  long SC_DRAGMOVE = 0xF012;
  if(Button == mbLeft)
   {
     ReleaseCapture();
     SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   }
#endif
}
void __fastcall TForm1::PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = false;
#endif
}
void __fastcall TForm1::ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>( Sender )->Tag = emibDown;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>(Sender)->Tag = emibUp;
  ButtonUpdate();
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Min")) this->WindowState = wsMinimized;
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Exit")) this->Close();
}
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 
  TIniFile *Ini = new TIniFile(CFG);
  Ini->WriteString("MENU","CHECKED",IntToStr(A));
  delete Ini;
  CanClose = true;
}
 
void __fastcall TForm1::SetLaunchParam()
{
  switch(A)
    {
      case 1 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
      case 2 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
    }
 
  Timer1->Enabled = 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

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif
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

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
 
USEFORM ("Unit1.cpp", Form1);
 
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
 
        CreateMutex(NULL,true,L"MyApp");
        if (GetLastError() == ERROR_ALREADY_EXISTS)
        {
            MessageBox(NULL,L"Не удалось запустить (Приложение уже запущено).","Fatal Error",MB_OK | MB_ICONERROR);
            exit(0);
        }
 
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Project1.cpp"
  c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32.exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\boost_1_39\boost\tr1\tr1";"C:\Program 
  Files (x86)\Embarcadero\Studio\15.0\include\boost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\dinkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\crtl";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\rtl";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\fmx";"C:\Program Files 
  (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Embarcadero\Studio\15.0\hpp\Win32 -y -Q -k 
  -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Project1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Project1.cpp 
[bcc32 Error] Project1.cpp(17): E2034 Cannot convert 'char const[12]' to 'const wchar_t *'
  Full parser context
    Project1.cpp(10): parsing: int __stdcall wWinMain(HINSTANCE__ *,HINSTANCE__ *,wchar_t *,int)
[bcc32 Error] Project1.cpp(17): E2342 Type mismatch in parameter 'lpCaption' (wanted 'const wchar_t *', got 'const char *')
  Full parser context
    Project1.cpp(10): parsing: int __stdcall wWinMain(HINSTANCE__ *,HINSTANCE__ *,wchar_t *,int)
Failed
Elapsed time: 00:00:01.1
Добавлено через 17 секунд
Не компилируется проект

Добавлено через 1 минуту
Помогите плиз исправить проект
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 22.03.2015, 14:43
Ответы с готовыми решениями:

Не могу исправить ошибки в коде
Парни, помогите пожалуйста ошибки в коде исправить. Всё что мог - исправил. Остальные никак не могу. void podschet(pat a, int s) { ...

Исправить ошибки в коде подсветки синтаксиса RichEdit
Вынесено в отдельную тему отсюда: https://www.cyberforum.ru/cpp-builder/thread752115.html Ребят помогите разобраться, нашел то что...

Исправить ошибки в коде С++
Задание: Написать программу решения задачи с помощью нескольких функций. Значения элементов массива вычислить в отдельной функции по...

14
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33402 / 21512 / 8236
Регистрация: 22.10.2011
Сообщений: 36,912
Записей в блоге: 12
22.03.2015, 14:45
Ты до сих пор не исправил строку на:
C++
1

MessageBox(NULL,L"Не удалось запустить (Приложение уже запущено).", L"Fatal Error",MB_OK | MB_ICONERROR);
, и в header-е не поставил между 45 и 46 строками #endif. О чем с тобой еще говорить? Тебе нужно не "помогите исправить", а "исправьте, а я пошел пиво пить с друзьями. Приду - проверю". Сам - палец о палец не двинул почти за сутки...
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
22.03.2015, 21:30  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
, и в header-е не поставил между 45 и 46 строками #endif. О чем с тобой еще говорить? Тебе нужно не "помогите исправить", а "исправьте, а я пошел пиво пить с друзьями. Приду - проверю". Сам - палец о палец не двинул почти за сутки...
Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Project1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k
-r- -c -tR -tM -tW -C8 -o.\Win32\Debug\Project1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Project1.cpp
[bcc32 Error] Project1.cpp(14): E2034 Cannot convert 'wchar_t const[6]' to 'const char *'
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(14): E2342 Type mismatch in parameter 'lpName' (wanted 'const char *', got 'const wchar_t *')
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2034 Cannot convert 'wchar_t const[48]' to 'const char *'
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2342 Type mismatch in parameter 'lpText' (wanted 'const char *', got 'const wchar_t *')
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
Failed
Elapsed time: 00:00:00.1


Я пробовал убирать этот но все равно ошибки компиляции

Не знаю как исправить это все,одно исправишь другая ошибка вылезает!

Добавлено через 6 минут
Цитата Сообщение от volvo Посмотреть сообщение
поставил между 45 и 46 строками #endif
есть он там сейчас

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

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle // <- ВОТ ОН
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif
Добавлено через 3 минуты
Я не понимаю сейчас ничего,запутался ...

Добавлено через 6 минут
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

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
 
USEFORM ("Unit1.cpp", Form1);
 
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
 
        CreateMutex(NULL,true,L"MyApp");
        if (GetLastError() == ERROR_ALREADY_EXISTS)
        {
            MessageBox(NULL,L"Не удалось запустить (Приложение уже запущено).", L"Fatal Error",MB_OK | MB_ICONERROR);
            exit(0);
        }
 
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
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

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle
    bool MouseLBDown;
    #endif
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif
Bash
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

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Project1.cpp"
  c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32.exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\boost_1_39\boost\tr1\tr1";"C:\Program 
  Files (x86)\Embarcadero\Studio\15.0\include\boost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\dinkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\crtl";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\rtl";"c:\program files 
  (x86)\embarcadero\studio\15.0\include\windows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\windows\fmx";"C:\Program Files 
  (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Embarcadero\Studio\15.0\hpp\Win32 -y -Q -k 
  -r- -c -tR -tM -tW -C8 -o.\Win32\Debug\Project1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Project1.cpp 
[bcc32 Error] Project1.cpp(14): E2034 Cannot convert 'wchar_t const[6]' to 'const char *'
  Full parser context
    Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(14): E2342 Type mismatch in parameter 'lpName' (wanted 'const char *', got 'const wchar_t *')
  Full parser context
    Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2034 Cannot convert 'wchar_t const[48]' to 'const char *'
  Full parser context
    Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2342 Type mismatch in parameter 'lpText' (wanted 'const char *', got 'const wchar_t *')
  Full parser context
    Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
Failed
Elapsed time: 00:00:00.1
Добавлено через 6 часов 22 минуты
Как проект исправить ?
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 12:45  [ТС]
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

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
 
USEFORM ("Unit1.cpp", Form1);
 
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
 
        CreateMutex(NULL,true,L"MyApp");
        if (GetLastError() == ERROR_ALREADY_EXISTS)
        {
            MessageBox(NULL,L"Не удалось запустить (Приложение уже запущено).", L"Fatal Error",MB_OK | MB_ICONERROR);
            exit(0);
        }
 
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
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
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300

#include <windows.h>
#include <mmsystem.h>
 
#include <vcl.h>
#pragma hdrstop
#include "IniFiles.hpp"
#include <Tlhelp32.h>
#include "Unit1.h"
#include <tchar.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
wchar_t *pName;
TMenuItem *M;
UnicodeString Start;
UnicodeString Plus;
String Capt;
String CFG;
int A;
 
void DeleteDir(String Folder)
{
  if(DirectoryExists(Folder))
   {
     TCHAR cDest[MAX_PATH] = {0};
     _tcscpy(cDest, Folder.c_str());
     SHFILEOPSTRUCT fos;
     memset(&fos, 0, sizeof(SHFILEOPSTRUCT));
     fos.hwnd = Application->Handle;
     fos.wFunc = FO_DELETE;
     fos.pFrom = cDest;
     fos.fFlags = FOF_SILENT | FOF_NOERRORUI | FOF_NOCONFIRMATION;
     SHFileOperation(&fos);
   }
}
void __fastcall TForm1::N1Click(TObject *Sender)
{
 
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   A = ((TMenuItem *)Sender)->Tag;
   BitBtn1->Enabled = true;
   SetLaunchParam();
}
void __fastcall TForm1::OpenFolderClick(TObject *Sender)
{
 
   ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).c_str(), NULL,NULL,SW_SHOWNORMAL);
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
  if(FileExists(L"click.wav"))
  {
    PlaySound(L"click.wav", NULL, SND_FILENAME);
  }
 
  ShellExecute(NULL,L"open",Start.c_str(),Plus.c_str(),NULL,SW_SHOW);
}
bool ProcessStart(wchar_t *pName)
{
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if(Hndl == INVALID_HANDLE_VALUE) return false;
  PROCESSENTRY32 ProcessEntry;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(Hndl, &ProcessEntry);
  while (Loop)
   {
     if (wcscmp(ProcessEntry.szExeFile, pName) == 0)
       {
         CloseHandle(Hndl);
         return true;
       }
     Loop = Process32Next(Hndl, &ProcessEntry);
   }
  return false;
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
  pName = String(ExtractFileName(Start)).c_str();
  if(! ProcessStart(pName))
   {
    DeleteDir(L"Folder1");
    DeleteDir(L"Folder2");
    DeleteDir(L"Folder3");
    TSearchRec SR;
    if(FindFirst("*.log", faAnyFile, SR) == 0)
   {
     do
       DeleteFile(SR.Name);
     while (FindNext(SR) == 0);
     FindClose(SR);
   }
  ChDir(ExtractFilePath(Application->ExeName));
 
     BitBtn1->Caption = "Старт " + Capt + " [Off]";
     BitBtn1->Enabled = true;
     Menu->Enabled = true;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_ENABLED);
   }
  else
   {
     BitBtn1->Caption = Capt + " [On]"; /
     BitBtn1->Enabled = false;
     Menu->Enabled = false;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_GRAYED);
   }
  Application->ProcessMessages();
}
enum MouseInButton_e {emibLeave, emibEnter, emibDown, emibUp};
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner),
  ColorEnter(StringToColor(L"0xdf0064")),
  ColorLeave(StringToColor(L"0x7a0055")),
  ColorEnterExit(StringToColor(L"0x0000c8")),
  ColorLeaveExit(StringToColor(L"0x000064")),
  ButtonWidth(20),
  ButtonHeight(30),
  CaptionPanelHeight(30)
{
  #ifndef FormStyle
   MouseLBDown = false;
  #endif
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   CaptionPanel = new TPanel( this );
  CaptionPanel->Parent = this;
  CaptionPanel->Height = CaptionPanelHeight;
  CaptionPanel->Align  = alTop;
  CaptionPanel->ParentBackground = false;
  CaptionPanel->Color  = ColorLeave;
  CaptionPanel->OnMouseDown = this->PanelMouseDown;
  CaptionPanel->OnMouseUp = this->PanelMouseUp;
  CaptionPanel->OnMouseMove = this->PanelMouseMove;
  CaptionPanel->Caption = this->Caption;
  CaptionPanel->Font->Style = TFontStyles() << fsBold;
  CaptionPanel->Font->Color = clWhite;
  SBMin = new TShape( this );
  SBExt = new TShape( this );
  TShape *pTempShape;
  for( unsigned index = 0; index < this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
     {
        pTempShape = static_cast<TShape*>( Components[index] );
        pTempShape->Parent  = CaptionPanel;
        pTempShape->Width   = ButtonWidth;
        pTempShape->Height  = ButtonHeight;
        pTempShape->Top     = CaptionPanel->Height/2 - ButtonHeight/2;
        pTempShape->Shape   = stRoundSquare;
        pTempShape->Tag     = emibLeave;
        pTempShape->Brush->Color = ColorLeave;
        pTempShape->Pen->Color   = clWhite;
        pTempShape->OnMouseLeave = this->ShapeMouseLeave;
        pTempShape->OnMouseEnter = this->ShapeMouseEnter;
        pTempShape->OnMouseDown  = this->ShapeMouseDown;
        pTempShape->OnMouseUp    = this->ShapeMouseUp;
     }
  SBMin->Name = L"SBMin";
  SBMin->Hint = L"Свернуть";
  SBExt->Name = L"SBExit";
  SBExt->Hint = L"Закрыть";
  SBExt->Brush->Color = ColorLeaveExit;
  SBMin->Left = CaptionPanel->Width - ButtonWidth * 1.8 ;
  SBExt->Left = CaptionPanel->Width - ButtonWidth/2;
  this->BorderStyle = bsNone;
  this->Position = poDesktopCenter;
 
 
  CFG = ExtractFilePath(Application->ExeName) + L"Settings.cfg";
  if(FileExists(CFG))
   {
 
     TIniFile *Ini = new TIniFile(CFG);
     int mTag = Ini->ReadInteger("MENU","CHECKED",0);
     for(int i = 0; i < Form1->ComponentCount; i++)
      {
        if(Components[i]->ClassNameIs("TMenuItem"))
         if(((TMenuItem *)Components[i])->Tag == mTag)
          {
            A = mTag;
            ((TMenuItem *)Components[i])->Checked = true;
            Capt = ((TMenuItem *)Components[i])->Caption;
            BitBtn1->Caption = Capt;
            SetLaunchParam();
          }
      }
     delete Ini;
   }
}
void __fastcall TForm1::ShapeMouseEnter(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibEnter;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseLeave(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibLeave;
  ButtonUpdate();
}
void __fastcall TForm1::ButtonUpdate()
{
  TColor CurrColor(0);
  for( unsigned index=0; index<this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
      {
        if( static_cast<TShape*>( Components[index] )->Tag == emibEnter )
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorEnter;
            else
                CurrColor = ColorEnterExit;
          }
        else
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorLeave;
            else
                CurrColor = ColorLeaveExit;
          }
        static_cast<TShape*>( Components[index] )->Brush->Color = CurrColor;
      }
}
void __fastcall TForm1::PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
#ifndef FormStyle
  if( MouseLBDown )
   {
     static TPoint tp;
     tp.X = X;
     tp.Y = Y;
     tp = ClientToScreen(tp);
     this->Left = tp.x - MouseDownCaptionXY.X;
     this->Top = tp.Y - MouseDownCaptionXY.Y;
   }
#endif
}
void __fastcall TForm1::PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = true;
  MouseDownCaptionXY.X = X;
  MouseDownCaptionXY.Y = Y;
#else
  long SC_DRAGMOVE = 0xF012;
  if(Button == mbLeft)
   {
     ReleaseCapture();
     SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   }
#endif
}
void __fastcall TForm1::PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = false;
#endif
}
void __fastcall TForm1::ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>( Sender )->Tag = emibDown;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>(Sender)->Tag = emibUp;
  ButtonUpdate();
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Min")) this->WindowState = wsMinimized;
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Exit")) this->Close();
}
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 
  TIniFile *Ini = new TIniFile(CFG);
  Ini->WriteString("MENU","CHECKED",IntToStr(A));
  delete Ini;
  CanClose = true;
}
 
void __fastcall TForm1::SetLaunchParam()
{
  switch(A)
    {
      case 1 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
      case 2 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
    }
 
  Timer1->Enabled = 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

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle
  #endif
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Project1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k
-r- -c -tR -tM -tW -C8 -o.\Win32\Debug\Project1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Project1.cpp
[bcc32 Error] Project1.cpp(14): E2034 Cannot convert 'wchar_t const[6]' to 'const char *'
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(14): E2342 Type mismatch in parameter 'lpName' (wanted 'const char *', got 'const wchar_t *')
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2034 Cannot convert 'wchar_t const[48]' to 'const char *'
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
[bcc32 Error] Project1.cpp(17): E2342 Type mismatch in parameter 'lpText' (wanted 'const char *', got 'const wchar_t *')
Full parser context
Project1.cpp(10): parsing: int __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
Failed
Elapsed time: 00:00:00.1


Помогите исправить ошибки в проекте!

Пробовал никак не исправить самому

Как сделать ?

P.S
В С++ Builder недавно

Исходники https://www.cyberforum.ru/atta... 1426948253
0
 Аватар для demon_7
260 / 192 / 60
Регистрация: 12.05.2013
Сообщений: 857
23.03.2015, 12:59
То, что Вы плодите темы на данной ветке, никак не поможет Вам приблизиться к решению проблемы
Исправить ошибки в коде
Вам уже дали рекомендации, сделайте их, уважайте внимание тех, кто дает Вам советы, а не плодите кучу тем, в надежде, что все сделают за Вас!
1
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 13:06  [ТС]
Цитата Сообщение от demon_7 Посмотреть сообщение
Вам уже дали рекомендации, сделайте их
Сделал всё равно ошибки при компиляции!
0
1408 / 572 / 127
Регистрация: 31.10.2011
Сообщений: 1,960
23.03.2015, 13:11
Ayanntcave, переключи Project->Options->C++(Shared Options)->_TCHAR maps to на wchar_t

Добавлено через 2 минуты
в Unit1.h ты открыл #ifndef FormStyle но #endif-а нету
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 13:19  [ТС]
Цитата Сообщение от _Dimon_ Посмотреть сообщение
переключи Project->Options->C++(Shared Options)->_TCHAR maps to на wchar_t
Толку
Изображения
 
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 13:25  [ТС]
Не работает Hint и меню должно быть снизу а не сверху

Добавлено через 5 минут
Цитата Сообщение от _Dimon_ Посмотреть сообщение
в Unit1.h ты открыл #ifndef FormStyle но #endif-а нету
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

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle
  #endif
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif
Ставил #endif не знаю правильно или нет
0
1408 / 572 / 127
Регистрация: 31.10.2011
Сообщений: 1,960
23.03.2015, 13:50
Цитата Сообщение от Ayanntcave Посмотреть сообщение
Ставил #endif не знаю правильно или нет
да правильно, только без толку. Можно было просто закоментировать #ifndef FormStyle

Цитата Сообщение от Ayanntcave Посмотреть сообщение
Толку
А как ты хотел?
Ты рисуешь ручками панель (фиолетовую), потом делаешь форме BorderStyle = bsNone.
От этого панель не поднимется выше меню.
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 15:23  [ТС]
Цитата Сообщение от _Dimon_ Посмотреть сообщение
А как ты хотел?
Ты рисуешь ручками панель (фиолетовую), потом делаешь форме BorderStyle = bsNone.
От этого панель не поднимется выше меню.
Убрал заголовок формы (BorderStyle = bsNone) оставил только свой , но меню над заголовоком

Добавлено через 13 минут
Цитата Сообщение от _Dimon_ Посмотреть сообщение
закоментировать #ifndef FormStyle
ошибки если это убрать пробовал

Добавлено через 59 минут
Что делать ?
0
 Аватар для demon_7
260 / 192 / 60
Регистрация: 12.05.2013
Сообщений: 857
23.03.2015, 15:49
Обратитесь к тому, кто написал этот проект, пусть Вам поможет....у многих нет времени разбираться в тонне этого кода =(
0
23.03.2015, 16:14
 Комментарий модератора 
Ayanntcave, не нужно дублировать темы. Проблема быстрее не решится и до добра это не доведет.
0
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 15
23.03.2015, 17:24  [ТС]
Цитата Сообщение от demon_7 Посмотреть сообщение
Обратитесь к тому, кто написал этот проект, пусть Вам поможет...
Откуда мне знать кто его писал ?!
P.S на шел в одной из тем !
0
1408 / 572 / 127
Регистрация: 31.10.2011
Сообщений: 1,960
23.03.2015, 22:40
Ayanntcave,
Цитата Сообщение от Ayanntcave Посмотреть сообщение
Убрал заголовок формы (BorderStyle = bsNone) оставил только свой , но меню над заголовоком
это не заголовок, это панель. я тебе уже это обьяснял

Цитата Сообщение от Ayanntcave Посмотреть сообщение
Откуда мне знать кто его писал ?!
P.S на шел в одной из тем !
Вот оно что, Михалыч )))))
Ты ведернул кусок кода из непонятно откуда и хочешь, чтоб он нормально работал.

Как по мне, так я б переписал это все дело с нуля, а то там столько чудес рукотворных и бесполезных, что в глазах рябит.
Кстати, по сабжу тебе помогли. Программа компилируется.

Добавлено через 2 минуты
С другого форума, правда давнее
Кликните здесь для просмотра всего текста


ZEE (2002-05-29 01:12) [0]
Подскажите можно ли (если да - то как) поменять положение MainMenu формы? Например переместить его вниз или вообще расположить где-нибудь посередине.


KilkennyCat (2002-05-29 05:54) [1]
нет.
при его отрисовке используется DrawMenuBar(WindowHandle) в USER32.DLL


Alx2 (2002-05-29 08:12) [2]
В какой-то мере спасет компонент ToolBar (вкладка Win32).
На нем можно сымитировать меню. Вот как это делается:


Procedure AssignToolBarMenu(Const ToolBar : TToolBar; Const Menu : TMainMenu; Autosize : Boolean = true);
Var k, Cw : Integer;
begin
cw := 0;
For K := Menu.Items.Count - 1 Downto 0 Do
With TToolButton.Create(ToolBar) Do
Begin
Parent := ToolBar;
Grouped := True;
MenuItem := Menu.Items[K];
AutoSize := True;
Tag := K + 1;
inc(CW, Width);
End;
if AutoSize then
ToolBar.Width := CW;
end;


То есть, на форму (пусть она называется Form1) кидаешь ControlBar (вкладка Additional). Размещаешь где хочется, на него кидаешь ToolBar (в этом примере он имеет имя ToolBar1). В методе
OnCreate формы вызываешь

AssignToolBarMenu(ToolBar1, Form1.Menu);
Form1.Menu := Nil;


И все должно получиться
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 23.03.2015, 22:40
Помогаю со студенческими работами здесь

Найти ошибки в коде и исправить эти ошибки (Наследование)
Вот в общем 3 файла, изучаю наследование на примере односвязного и двусвязного списков: list.h (inline) #pragma once class list...

Ошибки при компиляции - исправить ошибки в коде
Помогите исправить ошибки , не понимаю в чем может быть причина ... #include &lt;conio.h&gt; #include &lt;stdio.h&gt; #include...

Найти ошибки в коде и исправить эти ошибки
Есть у меня вот такой код: #include &lt;iostream&gt; using namespace std; class A{ private: int* a; size_t size_; ...

Найти ошибки в коде и исправить эти ошибки - C++
Судя по вываливающейся ошибки, идет двойное освобождение памяти. У самого не получается отловить откуда. A.h #pragma once ...

Исправить ошибки в коде
int _tmain(int argc, _TCHAR* argv) { return 0; } #include &quot;stdio.h&quot; #include &quot;conio.h&quot; #include &quot;windows.h&quot; // Две...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru