Posts Similares
-
Converte String em Pchar
Compartilhe :Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex] of PChar; RingIndex: TRingIndex; Ptr: PChar; begin Ptr := @Str[Length(Str)]; Inc(Ptr); if Ptr^ = #0 then begin Result := @Str[1]; end else begin Result := StrAlloc(Length(Str)+1); RingIndex := (RingIndex + 1) mod (High(TRingIndex) +…
-
Eliminando o IF quando possível
Compartilhe :Eliminando o IF quando possível no Visual Basic Se você atribui true ou false para uma variável (ou propriedade), após testar certas condições, poderia fazê-lo sem o IF. Veja: If (age > 18 and sex = “M”) and (NecessitaSeContigente = true ) Then ServicoMilitar = true Pode substituir por: ServicoMilitar = (age >…
-
Boas Práticas para Organizar seu Código CSS
Compartilhe :Boas Práticas para Organizar seu Código CSS Neste post, aprenderemos como organizar e estruturar o código CSS, incluindo o uso de comentários, convenções de nomenclatura e modularização. Introdução Manter um código CSS organizado e bem estruturado é fundamental para a manutenção e escalabilidade de um projeto web. Um CSS mal organizado pode se tornar…
-
-
Captura tudo que é digitado – Keylog
Compartilhe :Captura tudo que é digitado – Keylog Dim a(15) As String Private CurrentApp_hWnd Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer Private Declare Function GetWindowText Lib “user32.dll” Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib “user32.dll” Alias…
-
Efeitos sonoros
Compartilhe :Efeitos sonoros Além de usar os fundos musicais (MID),é possível utilizar efeitos sonoros (WAV) sem que seja necessário interromper a música de fundo, porém enquanto este efeito sonoro toca, os comandos do jogo “travam” até que ele acabe. O código abaixo, se refere à este exemplo: você quer que quando o jogo seja…
