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 »

Como saber se o aplicativo já foi aberto no Delphi

Dicas de Programação Delphi

Como saber se o aplicativo já foi aberto Para saber se o aplicativo já foi aberto no Delphi, Insira o código abaixo dentro do arquivo .DPR de sua aplicação:

Obrigado Espero que esta dica tenha sido útil e tenha lhe ajudado a aumentar seus conhecimentos na linguagem de programação Delphi. Se você gostou, compartilhe estas dicas com um amigo ou participe

Continuar lendo »

Compactando tabelas Paradox no Delphi

Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin FillChar(TBDesc,Sizeof(TBDesc),0); with TBDesc do begin StrPCopy(szTblName,Table.TableName); StrPCopy(szTblType,szParadox); bPack := True; end; hDb := nil; Check(DbiGetDirectory(Table.DBHandle, True, TablePath)); Table.Close; Check(DbiOpenDatabase(nil, ‘STANDARD’, dbiReadWrite, dbiOpenExcl,nil,0, nil, nil, hDb)); Check(DbiSetDirectory(hDb, TablePath)); Check(DBIDoRestructure(hDb,1,@TBDesc,nil,nil,nil,False)); Table.Open; end; Para compactar tabelas Dbase use

Continuar lendo »
Pages:«1...567891011...22»