Ajuda denovo d:

[lucas98 1]

ae pessoal assim com oque eu faço pra tipo assim o cara clikar no button la ne a criar 1 foto que eu quero na area de trabalho dele ???

tem como ??

quem pdoer me ajudar vlw ai :D

[sumonee 0]

Use CopyFile

[lucas98 1]

Use CopyFile

 

pode me explicar como uso isso ai ??

[DragonBoss 9]

CopyFile é uma função para copiar um arquivo.

 

Usa-se assim:

CopyFile('Arquivo A ser Copiado.extensão','Para onde será copiado.extensão',Falhar se já existir?:bool);

 

Ou seja, considerando que a imagem está na pasta do seu programa:

 

CopyFile('imagem.bmp','C:\Pasta\Pasta\imagem.bmp',false);

 

Coloquei FALSE, porque assim ele copia mesmo que já exista.

 

Enfim, há uma forma de fazer o delphi retornar a string contendo o diretorio do usuario onde esta o desktop (adicione Registry nas uses):

 

 

var

MyReg : TRegIniFile;

Directory : string;

begin

MyReg :=

TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');

Directory := MyReg.ReadString ('Shell Folders','Desktop','');

MyReg.Free;

end;

 

 

Organizando os codes, temos + ou - isso:

 

 

var

MyReg : TRegIniFile;

Directory : string;

begin

MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');

Directory := MyReg.ReadString ('Shell Folders','Desktop','');

CopyFile('imagem.bmp',PChar(Directory+'\imagem.bmp'),false);

MyReg.Free;

end;

 

# Como de costume, o forum ferrou meu código,então, quando for usar, apenas arrume um erro de espaço no Cur RentVersion e no fim do imagem.bmp '

 

Pronto, Dei a resposta completa e mastigada ( e testei em casa, e funcionou ).

Apenas estude e tende entender. Eu estava com um pouco de tempo e resolvi explicar bem.

 

Evite dúvidas bobas e tende fazer o codigo entendendo passo a passo o que ele irá fazer.

 

flw, abraços

[lucas98 1]

vlw dragon mais assim como eu faço pra ele colar mais que 1 ves na pasta ???? por exemplo umas 15 veses tem como ??

[DragonBoss 9]

sim, faça ele gerar nomes diferentes na hora da copiar, só alterando com random mesmo.

Altere a linha:

CopyFile('imagem.bmp',PChar(Directory+'\imagem.bmp'),false);

 

para:

 

Randomize;

CopyFile('imagem.bmp',PChar(Directory+'\imagem'+IntToStr(Random(100)+'.bmp'),false);

 

Agora apenas coloque isso em loop ( usando FOR OU WHILE )....

Cansei de dar tudo pronto ;B

Estude Loops e tente entender meu code.