Kikonanet

Olá, Tenta isso: FormatDateTime('hh:mm',now); Abs. Kiko

você pode baixar o Trial no site da Borland! Abs. Kiko

Tente usá-lo como BLOB (MEMO) Abs. Kiko

Olá, O seu campo no Banco é do tipo MEMO (BLOB) ? Abs. Kiko

Olá Halan, Tenta usar: ADOTable2.FieldByName('Total').AsFloat Abs. Kiko

Olá Halan, Uso ADO quando uso Access sempre que incluo um registro, automaticamente, ele gera o autroincremento na sequencia! Posta ae como você esta fazendo! Abs. Kiko

Olá, Use o componete Timer da Palheta System. Coloque na propriedade Interval: 5000 e no evento OnTimer, você coloca seu código! qualquer coisa posta ae. Abs. Kiko

Olá, No Banco Access, o Campo está como Auto Incremento? qualquer coisa posta ae. Abs. Kiko

Olá, Tente assim: CopyFile(PChar(Origem1), PChar(Destino), true) Abs. Kiko

Olá, Dê uma olhada neste link http://scriptbrasil.com.br/forum/index.php...pic=54960&st=15 Abs. Kiko

Tente usar: DmDados.QueryPaciente.Post; Abs. Kiko

Opa q isso! Estamos ai para ajudar! Abs. Kiko

Olá Luiz, Dê uma olhada nestes sites: http://www.torry.net/ http://www.delphi32.com/ Abs. Kiko

Qual tópico? Seria interessante você responder nos tópicos! Abs. Kiko

Olá, Olhe na Seção de Dicas http://scriptbrasil.com.br/forum/index.php?showtopic=52637 Abs. Kiko

Qual banco você usa? Abs. Kiko

Pegando o Endereço MAC da Placa de Rede function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID; begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin @Func := GetProcAddress(Lib, 'UuidCreateSequential'); if Assigned(Func) then begin if (Func(@GUID1) = 0) and (Func(@GUID2) = 0) and (GUID1.D4[2] = GUID2.D4[2]) and (GUID1.D4[3] = GUID2.D4[3]) and (GUID1.D4[4] = GUID2.D4[4]) and (GUID1.D4[5] = GUID2.D4[5]) and (GUID1.D4[6] = GUID2.D4[6]) and (GUID1.D4[7] = GUID2.D4[7]) then begin Result := IntToHex(GUID1.D4[2], 2) + '-' + IntToHex(GUID1.D4[3], 2) + '-' + IntToHex(GUID1.D4[4], 2) + '-' + IntToHex(GUID1.D4[5], 2) + '-' + IntToHex(GUID1.D4[6], 2) + '-' + IntToHex(GUID1.D4[7], 2); end; end; end; end; Para chamar: Edit1.Text:=MacAddress; Abs. Kiko

Olá, Use esta função. function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID; begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin @Func := GetProcAddress(Lib, 'UuidCreateSequential'); if Assigned(Func) then begin if (Func(@GUID1) = 0) and (Func(@GUID2) = 0) and (GUID1.D4[2] = GUID2.D4[2]) and (GUID1.D4[3] = GUID2.D4[3]) and (GUID1.D4[4] = GUID2.D4[4]) and (GUID1.D4[5] = GUID2.D4[5]) and (GUID1.D4[6] = GUID2.D4[6]) and (GUID1.D4[7] = GUID2.D4[7]) then begin Result := IntToHex(GUID1.D4[2], 2) + '-' + IntToHex(GUID1.D4[3], 2) + '-' + IntToHex(GUID1.D4[4], 2) + '-' + IntToHex(GUID1.D4[5], 2) + '-' + IntToHex(GUID1.D4[6], 2) + '-' + IntToHex(GUID1.D4[7], 2); end; end; end; end; Para chamar: ShowMessage(MacAddress); Abs. Kiko

Opa! Valeu TBaiano! Esqueci de dizer onde se coloca!! rs... É a correria!! Abs. Kiko

Olá, Tenta assim: if not ( Key in['0'..'9','-','(',')'] ) then Key := #0; Abs. Kiko

Qual é a sua dificuldade? Posta ae um exemplo para entendermos melhor. Abs. Kiko

Olá, Dê uma olhada nos Demos do Componentes Indy.... Tem exemplos de como fazer um FTP. Abs. Kiko

Olá, Tenta usar separador ; ou - ou # Dai você pode fazer uma varredura e ir separando! ex: Abs. Kiko

Olá Marilise, Tenta assim: WinExec('NotePad.exe /p c:\teste.txt', 0); qualquer coisa posta ae. Abs. Kiko

Olá, Dá um olhada no componente IdPop3 (Palheta IndyClients). Vai no site da Indy e baixa os demos. Tem um demo sobre como baixar mensagens! http://www.indyproject.org/Sockets/Demos/index.iwp Abs. Kiko