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

Проверка новой версии программы.   Найти похожие ветки 

← →
kyn66 ©   (2005-10-31 09:05) [0]

Уважаемые мастера. Каким образом можно в программе сделать проверку на наличие новой версии своей программы, находящейся на сайте?

---

← →
Crazy_Diman ©   (2005-10-31 12:21) [1]

http://www.delphikingdom.ru зайди на сайт  и поиши я там гдето это видел

---

← →
Erik1 ©   (2005-10-31 15:26) [2]

А вот мой вариант, довольно корткий:
function GetCurrentVersion(const FileName: string): Int64;
var
 Info: Pointer;
 Temp,
   InfoSize,
   FileInfoSize: DWORD;
 FileInfo: PVSFixedFileInfo;
 CurFile: string;
begin
 Result := 0;
 CurFile := LowerCase(FileName);
 InfoSize := GetFileVersionInfoSize(PChar(CurFile), Temp);
 if InfoSize > 0 then
 begin
   GetMem(Info, InfoSize);
   FileInfoSize := SizeOf(FileInfo^);
   try
     GetFileVersionInfo(PChar(CurFile), 0, InfoSize, Info);
     VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);
     with FileInfo^ do
     begin
       Result := dwFileVersionMS;
       Result := Result shl 32;
       Result := Result + dwFileVersionLS;
     end;
   finally
     FreeMem(Info, InfoSize);
   end;
 end;
end;
Int64 очень легко преобразовать в string:
function VerToStr(const Value: Int64): string;
begin
 Result := IntToStr(Value shr 48) + "." + IntToStr((Value shr 32) and $FFFF) +
   "." + IntToStr((Value shr 16) and $FFFF) + "." + IntToStr(Value and $FFFF);
end;

---

← →
oldman ©   (2005-10-31 17:33) [3]

Не первый раз я вижу подобный вопрос:
"я написал что-то. как мне узнать то-то, что тоже я написал?"
Господи, ты же автор, вот и поставь проверку.
выложи на сайт файл маленький: "вышла версия N.ММ"
А в программе проверка: если "ММ" отличается от "КК" то...

---

← →
kyn66 ©   (2005-10-31 17:36) [4]

Да..., если не знаешь как задать влпрос поиска, найди попробуй. Мне-бы понять сам механизм.

---

← →
kyn66 ©   (2005-11-01 12:36) [5]

Да, спасибо, так и сделаю.

---

← →
Sergey13 ©   (2005-11-01 12:39) [6]

http://polesoft.narod.ru/Products/Starter/starter.html
Готовая проверялка. Работает (у меня) много лет на ура. Если есть желание - все фри.

---

← →
kyn66 ©   (2005-11-01 15:06) [7]

Есть одна загвоздка с [2] В данном случае конечно-же корректно проверяется версия Ехе-шника, но как быть, если на сайте лежит прога в архиве? Один выход подлаживать некий левый файлец и проверять по нему.

---

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

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



Память: 0.46 MB
Время: 0.046 c