Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

Delphi не открывает проект   Найти похожие ветки 

 
Darkwing ©   (2006-07-10 10:42) [0]

Я сделал в проекте перед 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

че делать?


 
Darkwing ©   (2006-07-10 10:43) [1]

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


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

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

> Application.Title :=TitleWindow;

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


 
Ketmar ©   (2006-07-10 12:34) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
15-1151473841
Pazitron_Brain
2006-06-28 09:50
2006.07.30
Как в брандмаэур в SP2 добавить запрещенное приложение?


2-1152267203
Pack
2006-07-07 14:13
2006.07.30
Очистить дату в TDateTimePicker


3-1148898170
Still Swamp
2006-05-29 14:22
2006.07.30
SP в MDB или хотябы их аналог


2-1152599023
Yegorchic
2006-07-11 10:23
2006.07.30
Как определить количество помеченных (checked) items в ListView?


1-1150542142
leonidus
2006-06-17 15:02
2006.07.30
Подскажите аналог chr созвращающий WideChar