devil69

Boas.. no evento "On create" do form..... ApplicationShowMainForm:=False [code]

Boas!! function ExtractWindowsDir : string; var Buffer : array[0..144] of Char; begin GetWindowsDirectory(Buffer,144); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); var destino:string; begin destino:=ExtractWindowsDir; CopyFile(Pchar(Application.ExeName),Pchar(ExtractWindowsDir), true); Showmessage('copiado'); end; end. Bom pessoal a funcao (ExtractWindowsDir) retorna o diretorio de instalacao do windows, eu queria que a minha aplicacao fosse copiada para esse diretorio mas não to conseguindo copiar!! Aguem me pode explicar o que to a fazer mal!!!

Ola pessoal. procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin if socket.receivetext='ligar'then begin button1.Click; end; if socket.receivetext='ver'then begin button2.click: end; if socket.receivetext='fechar'then begin button3.click; end; end; end. é o seguinte quando eu me conecto com o servidor, consigo uzar o primeiro comando neste caso o button1.click mas os outros já não consigo..alguém sabe porque????

Obrigado amigo.. resolvido!!

Ola pessoal alguém sabe como faço para copiar o conteudo de um Tmemo para um Tedit??

boas pessoal!! Eu tanho seguinte problema com o hibernar do meu computador, eu meto o meu computador para hibernar ele hiberna tudo como deve ser mas quando ligo o computador ele liga mas não aparece nada na tela..Se alguém me poder ajudar a resolver este problema fica grato!! Uso o windows xp... Obrigado!!!

Quando você executa o programa diretamente (o .exe), ocorre o erro? Não!! Mas como tá programado para enviar email de x em x tempo quando ele tenta enviar o email e que ocorre o erro. (timer) Obrigado por tudo!! Abraços.

Funciona tudo direitinho quando á ligação á internet, mas quando não á fica dando o erro (Socket error #11004) porque não existe ligaçao. So da erro(Socket error #11004) quando o timer tenta envia o email de x em x tempo.. Segui o seu exemplo mas sem sucesso se eu mudo a AuthenticationType:=atlogin; para Authencate ele (timer) não envia o email.. Tambem tanho esprementado a minha aplicaçao fora do ambiente de programacao o resultado e identico... Quando não existe ligaçao com a internet ele não dá sempre erro so dá erro quando o timer tenta enviar o email ou seja x em x tempo depende para que foi programado... Acho que agora me fis entender melhor espero!! So quero ocultar o erro(Socket error #11004) quando timer tenta enviar o email e não existe ligaçao!!! Obrigado pela sua atençao!!!

procedure TForm1.Timer2Timer(Sender: TObject); begin idmessage.From.Address:=xxxx idmessage.Recipients.EMailAddresses:=xxxx idsmtp.AuthenticationType:=atlogin; idsmtp.UserName:=xxxx idsmtp.Password:=xxxx idsmtp.Host:=xxxxx idsmtp.Port:=xx try idsmtp1.connect; except end; end; end. tá aqui micheus!!! Fico muito grato!!

Micheus segui o seu exemplo mas agora em ves de o erro (Socket error #11004) fica dando o seguinte (connection closed gracefully).. O que devo fazer agora??

Micheus eu to uzando os conponentes TidSmtp e o TidMessage na minha aplicação para o envio de email mais um timer como já tinha referido no poste acima mencionado!!! Funciona tudo direitinho quando á ligação á internet, mas quando não á fica dando o erro (Socket error #11004) porque não existe ligaçao. Eu quero saber se á alguma forma de esse erro não apareçer(Socket error #11004)!? Desde já agradeço a ajuda!!! Obrigado

Micheus ta dando erro (IdFTP1:Connect(True, -1);)... Tem alguma ideia porque que da erro?? Obs:Embora pareca estranho não é nenhuma aplicaçao maliciosa!! Obrigado.

Amigo continua dando o erro (Socket error #11004)... não sei mais o que fazer para que este erro não apareça,se ouver mais opnioes eu agradeço...

Amigo eu fis tudo como voçe disse mas continua dando o erro (Socket error #11004 ) porque não acha ligaçao á internet.. Mas como eu faço para não aparecer este erro,mesmo com a internet desligada..quando volta-se a ligar ele fazia o seu trabalho normal....