Converte String em Booleano

Função que converte String em Booleano em Delphi function strToBoolean(s: string): boolean; begin result := ((uppercase(s) = ‘TRUE’) or (uppercase(s) = ‘T’) or (uppercase(s) = ‘YES’) or (uppercase(s) = ‘Y’) or (uppercase(s) = ‘ON’) or (uppercase(s) = ‘O’) or (uppercase(s) = ‘1’)); end;  

Continuar lendo »

Captura a tela e salva-a em um Bitmap

Função que captura a tela e salva-a em um Bitmap em Delphi function CaptureScreenRect( ARect: TRect ): TBitmap; // Exemplo // Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height))); var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right – Left; Height := Bottom – Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width,

Continuar lendo »

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,

Continuar lendo »

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 =

Continuar lendo »

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

Continuar lendo »
Pages:«1234567...23»