Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
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;…
Função que remove os zeros a frente de um valor em Delphi function RemoveZeros(S: string): string; var I, J : Integer; begin I := Length(S); while (I > 0) and (S[I]
function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; begin Printer.GetPrinter(Device, Driver, Port, hDMode); Result := Device+’ na porta ‘+Port; end;
Como executar programas externos ao Delphi? Se você precisar rodar um programa externo durante a execução do seu aplicativo em DELPHI, basta usar a seguinte linha no seu programa: WinExec(‘drive\path\file.exe’, sw_show); Onde drive é o drive que deve ser usado, path é o caminho (diretório e subdiretórios) onde está o arquivo executável e file é o nome do arquivo…
Número de cores aceitas pelo monitor O código abaixo apresenta a implementação de uma função que retorna o número de cores suportadas pelo monitor. Esta função baseia-se na utilização de uma API do Windows, chamada GETDC.: Function QtdeCores : integer;var h : HDC; begin Result := 0; try h := GetDC( 0 ); Result :=1…
Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var pEnvStrings : pointer; i : integer; begin pEnvStrings := GetEnvironmentStrings; try i := 1; repeat while string(pEnvStrings)[i] #0 do begin result:=result+string(pEnvStrings)[i]; inc(i); end; result:=result+#255; inc(i) until string(pEnvStrings)[i]=#0; finally result:=result+#255; FreeEnvironmentStrings(pEnvStrings); end; end; 2a. Parte: Utilização….
Função que altera a data e a hora de um arquivo especificado em Delphi function AlterFileTime(const filename: String; const stamp: TDateTime): Boolean; var FileHandle: INTEGER; begin if not fileExists(filename) then begin Result := False; end else begin try FileHandle := FileOpen(filename, fmOpenWrite or fmShareDenyNone); if FileHandle > 0 then begin FileSetDate(FileHandle, DateTimeToFileDate(stamp)); FileClose (FileHandle);…
Promove um estado de espera no aplicativo procedure Delay(iMSecs: Integer); var lnTickCount: LongInt; begin lnTickCount := GetTickCount; repeat Application.ProcessMessages; until ((GetTickCount – lnTickCount) >= LongInt(iMSecs)); end;