Criação de índices em tempo de execução

Dicas de Programação Delphi

Pergunta: Tenho um programa que se utiliza de alguns arquivos que preciso efetuar a criação de índices em tempo de execução. Como por exemplo: na primeira vez que o usuário irá utilizar o sistema, este faz uma pesquisa na existência dos arquivos que irá utilizar. Em não existindo, o sistema automaticamente cria-os e esta funcionando muito bem. Contudo,

Continue reading »

Como formatar disquetes pelo delphi

Para formatar disquetes usando a API do Windows, com o Delphi, utilize as seguintes rotinas: procedure FormatDriveDialog; begin ShellExecute(Application.Handle,’Open’,’C:\Windows\Rundll32.exe’, ‘Shell32.dll,SHFormatDrive’,’C:\Windows’,SW_SHOWNORMAL); end; function SHFormatDrive(hWnd : HWnd; Drive, fmtID, Options : LongInt):longint; stdcall; external ‘shell32.dll’; procedure QuietFormatDrive; const SHFMT_ID_DEFAULT = $FFFF; SHFMT_OPT_QUICK = $0000; SHFMT_OPT_FULL = $0001; SHFMT_OPT_SYSONLY = $0002; SHFMT_ERROR = $FFFFFFFF; SHFMT_CANCEL = $FFFFFFFE; SHFMT_NOFORMAT =

Continue reading »

Enviando e-mail com Delphi pelo componente NMSMTP

Enviando e-mail com Delphi pelo componente NMSMTP Nesta rotina a seguir vamos enviar um e-mail utilizando o componente NMSMTP do Delphi. Crie um novo projeto e insira um componente do tipo TNMSMTP na aba FastNet da VCL do Delphi Adicione ao formulário um objeto Button e coloque o código a seguir no evento OnClick do

Continue reading »

Alterando a data do sistema

Alterando a data do sistema Como alterar a data do sistema via Delphi 1a. Parte: A função. function SetNewTime(Ano, Mes, Dia, hour, minutes: word): Boolean; var st:TSYSTEMTIME; begin GetLocalTime(st); st.wYear := Ano; st.wMonth := Mes; st.wDay := Dia; st.wHour := hour; st.wMinute := minutes; if not SetLocalTime(st) then Result := False else Result := True;

Continue reading »
Pages:1234567...23»