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

External exception EEFFACE из за ShellExecute

28.04.2016, 20:47. Показов 2623. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
не могу найти альтернативу запуска любого обьекта из приложения,в данном случае проект компилируется и создаёт ехе,но билдер виснет .
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
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346

//---------------------------------------------------------------------------
#include <vcl.h>
#include <shellapi.h>
#include <Filectrl.hpp>
#include <windows.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormView *FormView;
bool t = false;
//---------------------------------------------------------------------------
__fastcall TFormView::TFormView(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::AddNewlvItem(TSearchRec F)
{
  AnsiString FileName;
  AnsiString FullName;
  TSHFileInfo FileInfo;
  FileName=F.Name;
  if ((FileName != ".") & (FileName != ".."))
  {
    FullName=FolderPath()+"\"+FileName;
    FormView->lvDesktop->Items->Add();
    SHGetFileInfo(static_cast<const char*>(FullName.data()),0,&FileInfo,sizeof(FileInfo),SHGFI_DISPLAYNAME | SHGFI_TYPENAME | SHGFI_SYSICONINDEX);
    lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->Caption=FileInfo.szDisplayName;
    lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->SubItems->Add(FullName);
    lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->SubItems->Add(FileInfo.szTypeName);
    lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->ImageIndex=FileInfo.iIcon;
    if ( isLink(FullName) )
      lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->OverlayIndex=1;
    else lvDesktop->Items->Item[(lvDesktop->Items->Count)-1]->OverlayIndex=-1;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::UpdateForm()
{
  lvDesktop->Items->Clear();
  TSearchRec F;
  if (FindFirst(FolderPath()+"\\*",faAnyFile,F)!=0)
   Abort();
  AddNewlvItem(F);
  while (FindNext(F)==0)
    AddNewlvItem(F);
  FindClose(F);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::FormCreate(TObject *Sender)
{
  FormView->BoundsRect = Monitor->WorkareaRect;
  lvDesktop->BoundsRect = Monitor->WorkareaRect;
  lvDesktop->DoubleBuffered = true;
 
  THandle ImageListHandle;
  TSHFileInfo FileInfo;
  ImageListHandle=SHGetFileInfo("C:\",0,&FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX | SHGFI_LARGEICON);
  SendMessage(lvDesktop->Handle,LVM_SETIMAGELIST,LVSIL_NORMAL,ImageListHandle);
  UpdateForm();
}
//---------------------------------------------------------------------------
// êëèê ïðàâîé êíîïêè ìûøè
void __fastcall TFormView::lvDesktopContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
  if (lvDesktop->Selected != NULL)
    lvDesktop->PopupMenu=MenuItem;
  else lvDesktop->PopupMenu=MenuDesktop;
}
//---------------------------------------------------------------------------
// âûñòðîèòü çíà÷êè
void __fastcall TFormView::SnapToGridMenuClick(TObject *Sender)
{
  lvDesktop->Arrange(arSnapToGrid);
}
//---------------------------------------------------------------------------
// ñâîéñòâà
void __fastcall TFormView::PropertyMenuClick(TObject *Sender)
{
  FormProp->ShowModal();
}
//---------------------------------------------------------------------------
// îòêðûòü
void __fastcall TFormView::OpenMenuClick(TObject *Sender)
{
  AnsiString FilePath;
  FilePath=lvDesktop->ItemFocused->SubItems->Strings[0];
  ShellExecute(Handle,NULL,static_cast<const char*>(FilePath.data()),NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------
// äâîéíîé êëèê
void __fastcall TFormView::lvDesktopDblClick(TObject *Sender)
{
  if (lvDesktop->Selected != NULL)
    OpenMenuClick(lvDesktop);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::RenameMenuClick(TObject *Sender)
{
  lvDesktop->ItemFocused->EditCaption();
}
//---------------------------------------------------------------------------
// ïåðåèìåíîâàíèå íàçâàíèÿ èêîíêè
void __fastcall TFormView::lvDesktopEdited(TObject *Sender,
      TListItem *Item, AnsiString &S)
{
  AnsiString NewName,Ext;
  NewName=FolderPath()+"\";
  Ext=ExtractFileExt(lvDesktop->ItemFocused->SubItems->Strings[0]);
  if (Ext != "")
    NewName=NewName+S+Ext;
  else NewName=NewName+S;
  if (RenameFile(lvDesktop->ItemFocused->SubItems->Strings[0],NewName))
  {
    lvDesktop->ItemFocused->Caption=S;
    lvDesktop->ItemFocused->SubItems->Strings[0]=NewName;
  }
  else
  {
    AnsiString OldName;
    OldName=lvDesktop->ItemFocused->Caption;
    Application->MessageBoxA("Ïåðåèìåíîâàíèå íåâîçìîæíî. Ôàéë ñ óêàçàííûì èìåíåì óæå ñóùåñòâóåò",
                             "Îøèáêà ïðè ïåðåèìåíîâàíèè ôàéëà",
                              MB_ICONSTOP);
    lvDesktop->ItemFocused->CancelEdit();
    lvDesktop->ItemFocused->Caption=OldName;
    Abort();
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::DeleteMenuClick(TObject *Sender)
{
  SHFILEOPSTRUCT fos;
  AnsiString DelPath;
  TItemStates selected = TItemStates() << isSelected;
  TListItem *Item = lvDesktop->Selected;
  while (Item)
  {
      DelPath=DelPath+Item->SubItems->Strings[0]+'\0';
      Item = lvDesktop->GetNextItem(Item, sdAll, selected);
  }
  if (lvDesktop->SelCount>1)
    DelPath=DelPath+'\0';
  fos.hwnd=Application->Handle;
  fos.wFunc=FO_DELETE;
  fos.pFrom=static_cast<const char*>(DelPath.data());
  fos.fFlags=FOF_ALLOWUNDO;
  if ((SHFileOperation(&fos))==0)
  {
    TListItem *sItem = lvDesktop->Selected;
    TListItem *delItem;
    while (sItem)
    {
      AnsiString DelFile;
      DelFile=sItem->SubItems->Strings[0];
      delItem = sItem;
      sItem = lvDesktop->GetNextItem(sItem, sdAll, selected);
      if (!FileExists(DelFile))
        delItem->Delete();
    }
  }
}
//---------------------------------------------------------------------------
 
int __stdcall CustomSortProc(long Item1, long Item2, long ParamSort)
{
  AnsiString Item1Path,Item2Path;
  Item1Path=((TListItem *)Item1)->SubItems->Strings[0];
  Item2Path=((TListItem *)Item2)->SubItems->Strings[0];
  bool Item1Folder,Item2Folder;
  Item1Folder=isFolder(Item1Path);
  Item2Folder=isFolder(Item2Path);
  TSearchRec sr1,sr2;
  switch (ParamSort)
  {
    case 0:
      if ((Item1Folder & Item2Folder) | (!Item1Folder & !Item2Folder))
        return CompareText(((TListItem *)Item1)->Caption,((TListItem *)Item2)->Caption);
      else
        if (Item1Folder)
          return -1;
        else return 1;
    case 1:
      if ((Item1Folder & Item2Folder) | (!Item1Folder & !Item2Folder))
        return CompareText(((TListItem *)Item1)->SubItems->Strings[1],((TListItem *)Item2)->SubItems->Strings[1]);
      else
        if (Item1Folder)
          return -1;
        else return 1;
     case 2:
      if (Item1Folder & Item2Folder)
        return CompareText(((TListItem *)Item1)->Caption,((TListItem *)Item2)->Caption);
      else
        if (!Item1Folder & !Item2Folder)
        {
          FindFirst(Item1Path,faAnyFile,sr1);
          FindClose(sr1);
          FindFirst(Item2Path,faAnyFile,sr2);
          FindClose(sr2);
          return CompareText(sr1.Size,sr2.Size);
        }
        else
          if (Item1Folder)
            return -1;
          else return 1;
     case 3:
      if ((Item1Folder & Item2Folder) | (!Item1Folder & !Item2Folder))
      {
        FindFirst(Item1Path,faAnyFile,sr1);
        FindClose(sr1);
        FindFirst(Item2Path,faAnyFile,sr2);
        FindClose(sr2);
        if (Item1Folder & Item2Folder)
          return -CompareFileTime(&sr1.FindData.ftCreationTime, &sr2.FindData.ftCreationTime);
        else
          return -CompareFileTime(&sr1.FindData.ftLastWriteTime, &sr2.FindData.ftLastWriteTime);
      }
      else
        if (Item1Folder)
          return -1;
        else return 1;
    default: return 0;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::NameSortMenuClick(TObject *Sender)
{
  lvDesktop->CustomSort(CustomSortProc,0);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::TypeSortMenuClick(TObject *Sender)
{
  lvDesktop->CustomSort(CustomSortProc,1);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::SizeSortMenuClick(TObject *Sender)
{
  lvDesktop->CustomSort(CustomSortProc,2);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::DateSortMenuClick(TObject *Sender)
{
  lvDesktop->CustomSort(CustomSortProc,3);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::NewFolderMenuClick(TObject *Sender)
{
  AnsiString NewFolderPath;
  int Num;
  NewFolderPath=FolderPath()+"\\Íîâàÿ ïàïêà";
  Num=2;
  while (DirectoryExists(NewFolderPath))
  {
    NewFolderPath=FolderPath()+"\\Íîâàÿ ïàïêà ("+Num+")";
    Num++;
  }
    CreateDir(NewFolderPath);
    CreateNewItem(NewFolderPath);
    lvDesktop->Items->Item[(lvDesktop->Items->Count-1)]->EditCaption();
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::CreateNewFile(AnsiString Name, AnsiString Ext)
{
  THandle Handle;
  AnsiString NewFilePath;
  int Num;
  NewFilePath=FolderPath()+"\"+Name+"."+Ext;
  Num=2;
  while (FileExists(NewFilePath))
  {
    NewFilePath=FolderPath()+"\"+Name+" ("+Num+") ."+Ext;
    Num++;
  }
    Handle=FileCreate(NewFilePath);
    if (Handle != -1)
    {
      FileClose(Handle);
      CreateNewItem(NewFilePath);
      lvDesktop->Items->Item[(FormView->lvDesktop->Items->Count-1)]->EditCaption();
    }
    else
      Application->MessageBoxA("Íåâîçìîæíî ñîçäàòü ôàéë","Îøèáêà ïðè ñîçäàíèè ôàéëà",MB_ICONSTOP);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::NewTxtMenuClick(TObject *Sender)
{
  CreateNewFile(NewTxtMenu->Caption, "txt");
}
//---------------------------------------------------------------------------
 
 
void __fastcall TFormView::NewBmpMenuClick(TObject *Sender)
{
  CreateNewFile(NewBmpMenu->Caption, "bmp");
}
//---------------------------------------------------------------------------
 
 
void __fastcall TFormView::NewLinkMenuClick(TObject *Sender)
{
  FormLinkCreation->ShowModal();
}
//---------------------------------------------------------------------------
 
//
void __fastcall TFormView::lvDesktopMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if ( (lvDesktop->Selected != NULL) && (Button == mbLeft) && (!Shift.Contains(ssDouble)) )
    t = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::lvDesktopMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  if (t)
    lvDesktop->Selected->Position = Point(X, Y);
}
//---------------------------------------------------------------------------
 
void __fastcall TFormView::lvDesktopMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  t = false;
}
//---------------------------------------------------------------------------
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 28.04.2016, 20:47
Ответы с готовыми решениями:

External exception EEFFACE
Доброго вечера, ребята - кто может объяснить из - за чего бывает ошибка External exception EEFFACE Примерно знаю из за какого кода, но...

External exception EEFFACE при открытие файла в браузере
Подскажите плиз, первый раз сохранение и открытие отрабатывает, на второй раз ошибка, все виснет, помогает только перезапуск RAD. if...

Ошибка при создании новой компоненты (External exception eefface + code 87)
Никогда не создавал компоненты. Но вот пришлось, и не удачно... Видимо, из-за неправильного конструктора Класс компоненты в HDump.h,...

2
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
29.04.2016, 08:04
Вам даже подцветка кода подсказывает
C++
1

FullName=FolderPath()+"\\"+FileName;
----------
Извиняйте, двойной слэш что-то не пропечатывается
0
0 / 0 / 0
Регистрация: 06.04.2014
Сообщений: 45
08.05.2016, 22:29  [ТС]
всё ещё происходит зависание билдера
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 08.05.2016, 22:29
Помогаю со студенческими работами здесь

ошибка "external exception eefface"
Здравствуйте! Пишу программу на С++ builder (Embarcadero XE2) при компиляции вылетает ошибка &quot;external exception eefface&quot;,...

External exception EEFFACE
Доброго времени суток. У меня такая проблемка, установил недавно Rad Studio 2010 (Delphi), начал работать... все вроде нормально, но по...

exception EEFFACE
Есть такая проблема: Работаю в Borland C++ Builder 6 В коде поочерёдно создаются и заполняются 2 массива по 198млн int значений для...

"External exeption EEFFACE" при попытке выделить большой объем памяти
Добрый день. Мне надо выделить очень много памяти, под массив и двумерный массив. Но если указать на один ноль больше, будет ошибка...

external exception c0000008. Работа с COM портом.
Программа должна отправлять написанную диаграмму через COM порт. После открытия порта и нажатия кнопки начинается побайтовая отправка. Но...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru