Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c