Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вызов процедуры в MessageBox [D7, XP]

mctarik © (2006-04-23 20:00:00)
Здравствуйте уважаемые!

Как мне в 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;
***

С Уважением!

mctarik (2006-04-24 08:40:00) [1]
ИМХО!
> grisme © (24.04.06 05:29) [8]

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

grisme (2006-04-24 05:29:00) [2]
...хм...

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

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

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

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

DevilDevil (2006-04-23 22:39:00) [4]
mctarik © (23.04.06 20:10) [2]

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

Anatoly Podgoretsky (2006-04-23 20:57:00) [5]
До ShowMessage

mctarik (2006-04-23 20:44:00) [6]

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

До чего...

Anatoly Podgoretsky (2006-04-23 20:32:00) [7]
Ну так вызови до.

mctarik (2006-04-23 20:10:00) [8]
Мне нужно типо этого:

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

Рамиль (2006-04-23 20:07:00) [9]
В MessageBox ничего выполнить нельзя.

Наверх

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