ProSystem
Caros Usuarios, a ProSystem mudou de Host agora o novo Fórum é

www.procheats.ipbfree.com

Acessem e ajudem o Fórum a Crescer!

Att.MetaL

[Tutorial]Colocando Atualização em Seus Aplicativos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Tutorial]Colocando Atualização em Seus Aplicativos

Mensagem por MetaL em Sab Set 05, 2009 10:03 pm

1º – Sempre antes de realizar qualquer alteração em suas aplicações crie uma cópia de backup para sua própria segurança.

2º – Abra sua aplicação e no menu “Project>>Options” abra as opções do seu projeto. Na aba “Version Info” habilite as opções “include version information in project” e “Auto-increment buid number”.

//Ao habilitar estas duas opções sua aplicação passará a ser versionada e número será automaticamente incrementado toda vez que você fizer um novo build no seu projeto. Estas opções serão úteis mais adiante no nosso projeto.

3º – Vamos incluir duas functions a sua aplicação:


TUTORIAL

Código:
//Retorna o build de um arquivo
function GetBuildInfo(prog: String): String;
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
VerValue: PVSFixedFileInfo;
Dummy: DWORD;
V1, V2, V3, V4: Word;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(prog),Dummy);
GetMem(VerInfo,VerInfoSize);
GetFileVersionInfo(PChar(prog),0,VerInfoSize,VerInfo);
VerQueryValue(VerInfo,'',Pointer(VerValue),VerValueSize);

with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;

FreeMem(VerInfo,VerInfoSize);
result := Copy(IntToStr(100 + v1),3,2) + '.' + Copy(IntToStr(100 + V2),3,2) + '.' + Copy(IntToStr(100 + V3),3,2) + '.' + Copy(IntToStr(100 + V4),3,2);
end;

_________________
Sign OLD By : MetaL


MetaL
Administrador
Administrador

Mensagens : 89
Pontos : 2147483647
Reputação : 9
Data de inscrição : 27/08/2009
Idade : 21
Localização : C:\WINDOWS\system32

http://www.prosystem.forumeiros.com./

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum