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

Вниз

Почему не грузится проект? Апосля такой вот компиляции!   Найти похожие ветки 

← →
Stepper   (2007-12-19 20:12) [0]

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.

---

← →
Германн ©   (2007-12-19 21:24) [1]

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

---

← →
Stepper   (2007-12-19 21:47) [2]

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


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

---

← →
sniknik ©   (2007-12-19 21:52) [3]

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

---

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

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

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

---

← →
Германн ©   (2007-12-19 21:53) [5]

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

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

---

← →
Stepper   (2007-12-19 22:07) [6]

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


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


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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.016 c