Главная страница
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.038 c
6-1142939066
_Mike_
2006-03-21 14:04
2006.07.30
Наиболее мощный Ping-компонент.


15-1151567937
Holy
2006-06-29 11:58
2006.07.30
NEC ND-3551A. Disk T@2 и LabelFlash.


8-1138559567
SKIPtr
2006-01-29 21:32
2006.07.30
Как воспроизвести 2 звуковых файла


4-1144917600
Flagman
2006-04-13 12:40
2006.07.30
электронный ключ-таблетка


3-1148876416
apl
2006-05-29 08:20
2006.07.30
Английские символы