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

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

Почему не грузится проект? Апосля такой вот компиляции! [D7, XP]

Stepper ©   (2007-12-19 20:12:00) 

program Test_Prog;

uses
 Forms,
 Windows,
 SysUtils,
 conint in 'conint.pas' {Form1},
 helpfrm in 'helpfrm.pas' {Form2};

{$R *.res}

// блок на запуск второй версии программы
var
 HM: THandle;

function Check: boolean;
begin
 HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');
 Result := (HM <> 0);
 if HM = 0 then
   HM := CreateMutex(nil, false, 'MyOwnMutex');
end;

// определение версии билда
function FileVersion(FileName: string): string;
var
Buf: Pointer;
BufSize, Len, dwHandle: DWORD;
VerInfo: PVSFixedFileInfo;
begin
Result := '';
BufSize := GetFileVersionInfoSize(PChar(FileName), dwHandle);
if BufSize <> 0 then begin
 GetMem(Buf, BufSize);
 try
  GetFileVersionInfo(PChar(FileName), dwHandle, BufSize, Buf);
  VerQueryValue(Buf, '\', Pointer(VerInfo), Len);
  with VerInfo^ do
   Result := Format('%d.%d.%d.%d', [
    dwFileVersionMS shr 16,
    dwFileVersionMS and $FFFF,
    dwFileVersionLS shr 16,
    dwFileVersionLS and $FFFF]);
 finally
  FreeMem(Buf, BufSize);
 end;
end;
end;

begin
 if Check then
   Exit;
 Application.Initialize;
 Application.Title := 'TestProg v. ' + FileVersion(Application.ExeName); // Место бага!
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 Application.Run;
end.

Если скомпилировать проект то всё норм, но после закрытия среды разработки и повторного открытия проекта, проект не загружается - выдавая такую ошибку:

Error in module: Call to Application.CreateForm is missing or incorrect.

---

Stepper   (2007-12-19 22:07:00) [1]

> sniknik ©   (19.12.07 21:52) [3]


> Германн ©   (19.12.07 21:52) [4]


Сенкс! Все ок! Да век живи, век учись! Спс Парни, за Понимание и Внимание!

---

Германн   (2007-12-19 21:53:00) [2]

> sniknik ©   (19.12.07 21:52) [3]

Да. Точно. Приводил тут кто-то такой вариант. Он не вызывает возражений со стороны IDE.

---

sniknik   (2007-12-19 21:52:00) [3]

помню был другой баг связанный с Title ...
проверь может они связаны
сделай так
with Application do Title := 'TestProg v. ' + FileVersion(ExeName);
дало чтонибудь?

---

Германн   (2007-12-19 21:52:00) [4]

> Но после компиляции на работу Проги енто не как не скажется?

Нет. Это просто несварение желудка у IDE.

---

Stepper   (2007-12-19 21:47:00) [5]

> Германн ©   (19.12.07 21:24) [1]


Емко! спс за Ликбез! Но после компиляции на работу Проги енто не как не скажется?

---

Германн   (2007-12-19 21:24:00) [6]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=765

---

Наверх