Como habilitar e desabilitar barra de tarefas do windows ?

Como habilitar e desabilitar barra de tarefas do windows ? Para habilitar e desabilitar a barra de tarefas do windows use as seguintes procedures: procedure hideTaskbar; // DESABILITA var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], ‘Shell_TrayWnd’); wndHandle:= FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar end; procedure showTaskbar; // HABILITA var

Continue reading »

Minimizando uma janela de maneira diferente

Minimizando uma janela de maneira diferente Você já viu aquele efeito de minimizar uma janela de modo que ela fique minimizada na área de trabalho acima da barra de tarefas do Windows? Faça o seguinte, crie um projeto novo e coloque a seguinte instrução no evento OnCreate do Form: SetWindowLong(Application.Handle,GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); depois

Continue reading »

Reparar e compactar um banco de dados Access com Delphi

Reparar e compactar um banco de dados Access com Delphi Quem já trabalhou com o Ms Access, alguma vez já teve que compactar ou reparar um banco de dados (Extensão MDB). O recurso de compactar é essencial , uma vez que o banco de dados começa a ficar grande demais. O código abaixo realiza estas

Continue reading »

Converte um número decimal em algarismos romanos

Função que converte um número decimal em algarismos romanos em Delphi function DecToRoman( Decimal: LongInt ): String; const Romans: Array[1..13] of String = ( ‘I’, ‘IV’, ‘V’, ‘IX’, ‘X’, ‘XL’, ‘L’, ‘XC’, ‘C’, ‘CD’, ‘D’, ‘CM’, ‘M’ ); Arabics: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900,

Continue reading »
Pages:1234567...23»