Текущий архив: 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.042 c
