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

Вниз

Вызов процедуры в MessageBox   Найти похожие ветки 

 
mctarik ©   (2006-04-23 20:00) [0]

Здравствуйте уважаемые!

Как мне в MessageBox выполнить данную процедуру:
***
procedure GetFileVersion(FileName: string; var Major1, Major2,  
   Minor1, Minor2: Integer);  
 var  
   Info: Pointer;  
   InfoSize: DWORD;  
   FileInfo: PVSFixedFileInfo;  
   FileInfoSize: DWORD;  
   Tmp: DWORD;  
 begin  
   InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);  
   if InfoSize = 0 then  
     //Файл не содержит информации о версии
   else  
   begin      
     GetMem(Info, InfoSize);  
     try  
       GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);  
       VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);  
       Major1 := FileInfo.dwFileVersionMS shr 16;  
       Major2 := FileInfo.dwFileVersionMS and $FFFF;  
       Minor1 := FileInfo.dwFileVersionLS shr 16;  
       Minor2 := FileInfo.dwFileVersionLS and $FFFF;  
     finally  
       FreeMem(Info, FileInfoSize);  
     end;  
   end;  
 end;
***

С Уважением!


 
Рамиль ©   (2006-04-23 20:07) [1]

В MessageBox ничего выполнить нельзя.


 
mctarik ©   (2006-04-23 20:10) [2]

Мне нужно типо этого:

ShowMessage(Format("Текущая версия программы: %s", [GetFileVersion(ParamStr(0))]));


 
Anatoly Podgoretsky ©   (2006-04-23 20:32) [3]

Ну так вызови до.


 
mctarik ©   (2006-04-23 20:44) [4]


> Anatoly Podgoretsky ©   (23.04.06 20:32) [3]

До чего...


 
Anatoly Podgoretsky ©   (2006-04-23 20:57) [5]

До ShowMessage


 
DevilDevil ©   (2006-04-23 22:39) [6]

mctarik ©   (23.04.06 20:10) [2]

MessageBox(Handle, pchar(Format("Текущая версия программы: %s", [GetFileVersion(ParamStr(0))])), "Какой-то Заголовок", 0);


 
mctarik ©   (2006-04-24 00:47) [7]


> DevilDevil ©   (23.04.06 22:39) [6]

Спасибо Огромное! Рулиш!!!


 
grisme ©   (2006-04-24 05:29) [8]

...хм...

PS.ничего больше по поводу автора сказать не могу...(:-|)


 
mctarik ©   (2006-04-24 08:40) [9]

ИМХО!
> grisme ©   (24.04.06 05:29) [8]

чё не понравилось а! ...хм... ;-(



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

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

Наверх




Память: 0.48 MB
Время: 0.038 c
15-1144404805
MBo
2006-04-07 14:13
2006.05.14
Пятничные задачки


15-1145342859
Жека из Харькова
2006-04-18 10:47
2006.05.14
ПОМОГИТЕ ПОЖАЛУЙСТА!!!


15-1145269137
Кулхацкер
2006-04-17 14:18
2006.05.14
Как стать хакером


15-1145445960
Некто_
2006-04-19 15:26
2006.05.14
Проигрыватель жжостких дисков =)))


15-1145349492
katt
2006-04-18 12:38
2006.05.14
Хочу работать :)