Re: [delphi-br] Agendador de tarefas do windows
Esta rotina é para fazer o backup de algumas pastas na rede. O programa fica
ativo assim que liga o micro. Adapte as suas necessidades.
program Backup;
uses
SysUtils, Dialogs, Windows,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
data_hoje : string;
// ano, mes, dia : word;
ano_reg, mes_reg, dia_reg : word;
arq : textfile;
reg : string;
begin
if DayOfWeek(date) = 2 then // se for 2ª feira
begin
if FileExists('D:\Fabio Giro\Sistemas\Backup\DataBackup.txt') then
begin
assignfile(arq,'D:\Fabio Giro\Sistemas\Backup\DataBackup.txt');
reset(arq);
readln(arq,reg);
if trim(reg) '' then
decodedate(strtodate(reg), ano_reg, mes_reg, dia_reg);
closefile(arq);
end;
reg := formatdatetime('dd/mm/',strtodate(reg));
data_hoje := formatdatetime('dd/mm/',date);
if data_hoje reg then // ainda nao rodou o programa
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end;
end.
Lá no form1.
gravo a data do sistema, caso o micro seja desligado e ligado no mesmo dia,
não faz o backup novamente.
assignfile(arq,'D:\Fabio Giro\Sistemas\Backup\DataBackup.txt');
rewrite(arq);
writeln(arq,formatdatetime('dd/mm/',date));
closefile(arq);
copyfile('D:\Fabio
Giro\Sistemas\Backup\DataBackup.txt','\\MICRO02\C\ONLINE02_Fabio
Giro\DataBackup.txt',false);
Espero ter ajudado.
- Original Message -
From: GreG [EMAIL PROTECTED]
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Friday, February 04, 2005 9:40 AM
Subject: [delphi-br] Agendador de tarefas do windows
Bom dia,
Alguém sabe como posso escrever uma aplicação do
delphi que faça uso dos recursos de agendamento do
windows. Preciso criar um serviço que em determinadas
horas do dia faça uma cópia do meu BD que está em um
servidor X para um servidor Y.
Mauri
___
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet rápida e grátis
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Hora pra Fração
Leandro, eu uso as seguintes funções que trabalham com a hora sento uma
string no formato HH:MM.
Exemplo de uso:
TimeToString(5,50) // Retornará '05:30'
StringToTime('05:30') // Retornará 5,50.
Codigo fonte:
function TimeToString( rTime : Real ) : String;
var sHora, sMinuto : string;
iDecimal : Integer;
begin
sHora := IntToStr( Trunc( rTime ) );
sMinuto := IntToStr( Round( ( rTime - Trunc( rTime ) ) * 60 ) );
if Length( sHora ) = 1 then
sHora := '0' + sHora;
if Length( sMinuto ) = 1 then
sMinuto := '0' + sMinuto;
Result := sHora + ':' + sMinuto;
end;
function StringToTime( sTime : String ) : Real;
var iHora, iMinuto : Real;
begin
iHora := StrToInt(copy(sTime,1,Length( sTime ) - 3 ));
iMinuto := StrToInt(copy(sTime,Length( sTime ) - 1 ,2));
Result := iHora + iMinuto / 60;
end;
Espero que ajude.
_
Alessandro Cunha Fernandes
SoftTI - Software e Consultoria e TI.
[EMAIL PROTECTED]
Fone/Fax: +55 24 2458-4538
VAI IMPRIMIR? Pense antes em sua responsabilidade
com a preservação do meio ambiente e com a redução
de seus custos.
_
De: Leandro Coelho [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 3 de fevereiro de 2005 09:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Hora pra Fração
Alguem teria um função que converto hora para fração e fração para hora?
Obrigado.
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.rd.yahoo.com/SIG=12abn3po4/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107689098/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
http://br.rd.yahoo.com/SIG=12abn3po4/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107689098/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Mensagem de erro
Ai pessoal quando eu mando rodar o aplicativo , ele nao roda e recebo essa mensagem: [Fatal Error] File not found: 'c:\arquivos de rogramas\borland\delphi7 \Rave5\Lib\backup.pas' .Alguempoderia me dar uma dica do que poderia ser??? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Procedure
Veja com qual paleta de componentes vc esta trab e ache o que seja STored Procedure e configure-o Auriston escreveu: E ai Pessoal... A Procedure que crio no FIREBIRD, como eu chamo ela através do DELPHI 7 sds auriston [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.rd.yahoo.com/SIG=12a8vrd13/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1107689234/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ *Links do Yahoo! Grupos* * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Tab por Enter em uma DBGrid
Essa pergunta sua esta respondida dentro dos tutoriais que vc pode baixar em http://correio.leitbom.com.br:81/arquivos/Delphi/ Blue Informática escreveu: Meus Caros! Como faço para trocar o Tab por Enter em uma DBGrid,quando o usuário digitar algum valor na DBGriD. []'s Edinho - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.rd.yahoo.com/SIG=12ad7r0i3/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1107689053/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ *Links do Yahoo! Grupos* * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DbGrid
Existe um jeito de impedir que o usuário selecione qualquer coisa clicando em um dbgrid, podendo este apenas ver os registros??? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] XPManifest
Valeu pela dica Obrigada CAti ---Mensagem original--- De: Walter Alves Chagas Junior Data: 02/04/05 08:27:28 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] XPManifest - Você deverá colocar o arquivo .xml no diretório \Bin do Delphi. - Em seguida você terá que usar o Tema padrão do Windows XP. - Vai no ícone Meu Computador | botão direito do Mouse | Propriedades. - Orelha Avançado | Clica no botão Configurações da seção Desempenho. - Orelha Efeitos visuais | Marcar a Radiobutton Personalizar e em seguida deixar marcadas todas as checkbox da caixa de texto logo abaixo. - clique no botão Aplicar após fazer isto, você deverá fechar o Delphi se ele estiver aberto e reiniciá-lo. Eu vou colocar ele na seção de arquivos da lista []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Catiúscia Barrilli da Cruz [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 3 de fevereiro de 2005 19:32 Para: Delphi-Br Assunto: [delphi-br] XPManifest Como ele funciona ? -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
