MEMBROS (17)
OUTROS GRUPOS
NOVOS USUÁRIOS
Quando você acha que o homem encontrará a cura para a AIDS?
a) Na primeira metade desse século (XXI
b) Na segunda metade desse século (XXI
c) Na primeira metade do próximo século (XXII
d) Na segunda metade do próximo século (XXII
e) Só no século XXIII
f) Nunca
ver outra »
U07E6_USER000000000
perguntou para Delphi26-Aug-10 22:24
ei alguem pode passar um códico para copiar arquivos e pastas em uso?
Delphirespondeu:30-Aug-10 12:30
vá para o prompt e
WinExec(PChar('xcopy c:pastaOrigem d:pastaDestino /y/e/c'),SW_hide);
/y = Substitui arquivos e pastas sem lhe questionar.
/e = Copia arquivos e pastas vazias ou nao.
/c = continua copiando mesmo que ocorram erros.
U07E6_USER000000000
perguntou para Delphi25-Aug-10 23:25
alguem pode passar a função para apresentação de uma data no formato 'dia da semana'?
Delphirespondeu:01-Sep-10 02:07
function MostraData(dtData: TDateTime): string;
var
intDiaSemana: integer;
strDiaSemana: string;
begin
intDiaSemana := DayOfWeek(dtData);
case intDiaSemana of
1: strDiaSemana := 'Domingo - ';
2: strDiaSemana := 'Segunda-feira - ';
3: strDiaSemana := 'Terça-feira - ';
4: strDiaSemana := 'Quarta-feira - ';
5: strDiaSemana := 'Quinta-feira - ';
6: strDiaSemana := 'Sexta-feira - ';
7: strDiaSemana := 'Sábado - ';
end;
Result := strDiaSemana+DateToStr(dtData);
end;
U07E6_USER000000000
Delphirespondeu:30-Aug-10 21:31
Begin
if opendialog1.execute then
begin
mediaplayer1.filename:= opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
mediaplayer1.Perform (wm_lbuttonup,0,$00090009);
end;
end;
Anônimorespondeu:13-Nov-12 19:27
Esse código ficaria em abrir mídia?
U07E6_USER000000000
perguntou para Delphi24-Aug-10 18:43
To precisando de ajuda para fazer uma função para inverter um string, alguem pode ajudar?
Delphirespondeu:01-Sep-10 15:04
(* Função Inverte
Inverter um String
Parametros Tipo Objetivo
wStr1 String Especificar a Data a ser invertida
i Integer Contador do laço for
Retorno String A String invertida *)
function Inverte (wStr1: String): String;
var i: Integer;
begin
Result := '';
for i := Length( wStr1 ) downto 1 do Result := Result +
copy(wStr1,i,1 );
end;
<<<1>>>
Carregando...