| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi не открывает проект

Darkwing ©   (2006-07-10 10:42:00) 

Я сделал в проекте перед application.create защиту от повторного запуска, основанную на создании filemapping.

 Handle:=CreateFileMapping($FFFFFFFF,Nil,PAGE_READONLY,0,1,AppID);
 hwndPrev:= FindWindow(nil,TitleWindow);
 If GetLastError=ERROR_ALREADY_EXISTS then Begin
  SetForegroundWindow(hwndPrev);
  Application.Terminate;
 end
 else begin
  Application.Initialize;
  Application.Title :=TitleWindow;
  Application.CreateForm(TStrcFrm, StrcFrm);
  Application.Run;
 end;
 CloseHandle(Handle)

но забыл в сразу написать CloseHandle(Handle)

теперь Delphi не открывает проект, пишет

Error in module: call to application.createform is missing or incorrect

че делать?

---

Ketmar   (2006-07-10 12:34:00) [1]

а зачем так странно? мутексы не удобней разве?

---

Рамиль   (2006-07-10 11:01:00) [2]

ИМХО ошибка вот в этой строчке

> Application.Title :=TitleWindow;

попробуй без нее.

---

Darkwing   (2006-07-10 10:43:00) [3]

да, кстати комп я перезагружал, что точно должно уничтожить этот мап-файл.

---

Наверх