Surf e Program's Ajudemm!!!

[lucas98 1]

bom gente vou passar todos os detalies:

 

eu queria faser um programa que e tipo assim:

 

tem 1 button ai quando voce clika no button automaticamente o programa cola um arquivo na pasta que eu quero a pasta que ta o arquivo é esta:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

essa ai é a pasta dos arquivos e a pasta onde eu quero que cole esse arquivo é:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

essa ai mais sabe eu queria que nao funcionasse so no meu pc em outros tbm que naum tenham o arquivo na pasta o Riokusey (yuri) me disse que tem que copila o arquivo na pasta e se auguem poder me passar o codigo pra isso que eu falei la em cima e todos os codigos que eu presiso eu agradeço

 

vlwww

 

abraço

[Surfistinha£ 25]

Utilize o copy file dir file e o delete file

 

var

DirFile,ArquivoFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'Arquivo.exe';

ArquivoFile:='Local\Arquivo.exe';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

E coloca no edit1 no caso o seu local diretorio

 

;D

[lucas98 1]

mais pode me explicar melhor ?? esse:

 

Utilize o copy file dir file e o delete file

 

e esse ArquivoFile:='Local\Arquivo.exe';

 

no local\arquivo é o local que tenho que coloka ?? do pasta ??

[''MM'' 0]

Faz com Resource, que o arquivo embuti no .exe, é mais dificil mas é melhor que copy file.

[Niik 4]

Apague o begin e o end;

 

Coloque isso :

 

var

DirFile,ArquivoFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'Arquivo.exe';

ArquivoFile:='H:\Level Up! Games\Perfect World\Arquivo.exe';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

Se naum funfar avise ;D

[lucas98 1]

obrigado Nik vlw agora to suse mais isso naum funciona so no meu pc né??

 

nos outros pc que nao tem esse arquivo tbm funfa né ??

[DragonBoss 9]

sim, soh ter os scripts na pasta certa e tals....

[Surfistinha£ 25]

Resource

 

var

Arq: TResourceStream;

begin

begin

Arq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');

try

Arq.SaveToFile(Edit1.Text+'\Arquivo.exe');

finally

Arq.Free;

end;

end;

ShowMessage('Ativado com sucesso.');

end;

[lucas98 1]

ta mais esse resourse é so eu coloka no buton esse codigo ??

 

e ele cria sozinho o arquivo naum presisa de nada assim ??

 

tipo funciona em outros pc ?? esse codigo do resource ??

[DragonBoss 9]

soh fazer certin ke ele vai funfa em outros pc's cara, pq ele vai usar o diretorio do Edit1.Text, nao sei como cria resource, nem mexo com essas parada e tals, mas se fizer tudo certin ele funfa em outros pc sim.

 

flw

[lucas98 1]

ta mais auguem pode me ajudar

 

surf sabe o codigo que voce me passo ??

 

fica dando erro nessa parte

 

DeleteFile(Edit1.Text+ScriptFile);

 

e essa tbm

 

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

 

me ajuda ai pfff ??

 

augum??

[Niik 4]

DeleteFile(Edit1.Text+ArquivoFile);

 

 

if CopyFile(PChar(ArquivoFile),PChar(DirFile),false) then

[l2lipe 2]

cara resource eh assim oh:

 

Pro delphi compilar o script junto você tem que criar o .res (Resource) do script tendeu?

Tipo assim... Cria um arquivo .txt com a seguinte estrutura: ID Extensão Arquivo

Ex:

nome jpg "C:\Pasta\nome.(formato)"

 

Salve o arquivo e compile com o brcc32.exe que provavelmente está na pasta "C:\Arquivos de programas\Borland\Delphi7\Bin"

Como compilar: Iniciar>Executar: brcc32.exe resource.txt

Ex: "C:\Arquivos de programas\Borland\Delphi7\Bin\brcc32.exe" "C:\Pasta\Resource.txt"

 

Agora coloque o arquivo criado (nome do txt.res) na pasta do seu projeto do delphi...

 

Na sua Unit procure por {$R *.dfm} e na outra linha coloque {$R Arquivo.res}

 

Adicione essa procedure que eu fiz =) (é útil se tiver que extrair muitas resources...)

Código:

 

procedure Resource(Save, ID, Ext : String);

var

Res : TResourceStream;

begin

Res := TResourceStream.Create(Hinstance, ID, PChar(Ext));

try

Res.SaveToFile(Save);

finally

Res.Free;

end;

end;

 

Pra extrair a res adicione esse código no botão ou seja lá o que for:

Resource(Pasta a ser salva, ID do arquivo, Extensão);

Ex: Resource(Edit1.text+'pasta', 'nome', formato');

 

Agora é só compilar

 

creditos a ~OwneR~..

[Surfistinha£ 25]

Mostre a imagem por favor pra mim analizar