Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
O Crystal Reports é uma ferramenta poderosa para gerar relatórios no Visual Basic (VB6). Para exibir ou imprimir um relatório, você precisa criar o arquivo .RPT, configurá-lo corretamente e utilizá-lo no seu projeto VB6. Passo a Passo para Imprimir um Relatório do Crystal Reports no VB6 Criando o Relatório no Crystal Reports Antes de integrar…
O ListBox padrão do Visual Basic 6 (VB6) não suporta colunas nativamente. No entanto, podemos utilizar a API do Windows para simular colunas, utilizando Tabs dentro do ListBox. Neste artigo, você aprenderá como formatar uma ListBox com colunas simuladas, tornando a exibição dos dados mais organizada. 1️⃣ Criando um Módulo para Definir a Função API…
APIs API significa Application Programming Interface, e possui mais de 1000 funções que podem ser utilizadas pelo Visual Basic ou por qualquer linguagem de programação que rode em Windows. Apesar de haver diversas funções, somente algumas delas são verdadeiramente uteis. Os componentes do sistema operacional 32 Bits,que possibilitam a utilização deste recurso são 3…
Localizar Pastas do Windows ‘Código que recupera Pastas do Windows, como Strings: ‘Ex: C:\Windows\Desktop, C:\Windows\Histórico… ‘——————- ‘Código para o Form ‘——————- Option Explicit Private Sub Form_Load() Call AchePastas End Sub Private Sub AchePastas() MsgBox ” 0- ” & ListaPastas(0) & vbCrLf & _ ” 2- ” & ListaPastas(2) & vbCrLf & _ ” 5- ”…
Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; // habilita procedure TForm1.Button2Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(false),@numero,0); end;
Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em que Windows esta registrado, siga os procedimentos abaixo: 1-Insira Registry em Uses: Uses Registry; 2-Insira no Form, 2 Edit’s e um Botão. Programe o evento click do botão com o seguinte código abaixo: Procedure TForm1.Button1Click(Sender:…
Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força o cancelamento do mapeamento begin WNetCancelConnection2(Letra,0,Forcada); Case GetLastError() of 1205: Result := ‘Não foi possível abrir o perfil’; 1206: Result := ‘Perfil do usuário não encontrado ou inválido’; 1208: Result := ‘Ocorreu um Erro específico…
Função que remove um caractere especificado de uma string em Delphi function RemoveAllChars(S: string; Ch: Char): string; var i: Integer; begin i := Length(S); while (Length(S) > 0) and (i > 0) do begin if S[i] = Ch then Delete(S,i,1); Dec(i); end; Result := S; end;
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,…
Como Obter o Número de Série do HD Usando Delphi No desenvolvimento de software, especialmente quando se trata de segurança e identificação de hardware, pode ser necessário obter o número de série do HD. Em Delphi, isso pode ser feito utilizando a função GetVolumeInformation da API do Windows. Neste post, vamos mostrar como você pode…
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…
Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra atribuida a unidade // Path = Caminho do mapeamento // Provedor = Provedor da rede var NRW: TNetResource; begin with NRW do begin dwType := RESOURCETYPE_ANY; lpLocalName := Letra; lpRemoteName := Path; lpProvider := provedor;…