Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.053 c
6-1178605115
nali
2007-05-08 10:18
2008.01.20
не работатет InternetOpenUrl в потоке


15-1197349485
AntiPupkin
2007-12-11 08:04
2008.01.20
Скажите правду?


15-1197402418
No_Dead
2007-12-11 22:46
2008.01.20
Атакуют что ли?!


2-1198095592
Евгений Р.
2007-12-19 23:19
2008.01.20
PicList в dbGrid


15-1197875646
Stas
2007-12-17 10:14
2008.01.20
Настройка Boot меню Win XP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский