Retorna os programas que estão abertos na memória

Função que retorna os programas que estão abertos na memória em Delphi Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; // listbox1.clear; // EnumWindows( @EnumWindowsProc, integer(listbox1)); var caption: Array [0..128] of Char; begin Result := True; if IsWindowVisible(Wnd) and ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)

Continuar lendo »

Instalação do Sistema em Delphi na Máquina do seu Cliente.

Pergunta 1: Gostaria de saber quais os arquivos que deverei levar junto com as aplicações de banco de dados que desenvolvo em DELPHI 2.0., pois já copiei as DLL dos subdiretórios BDE e IDAPI e aplicação continuou dando erro de inicialização do DBE (ERRO $220B). Resposta 1: Você por acaso tem o programa original do Delphi? Caso possua, o

Continuar lendo »

Como Utilizar Bookmarks em tabelas?

A utilização de Bookmarks permitem ao desenvolvedor “memorizar” um determinado local da tabela para que possa retornar mais tarde, é muito simples e fácil de usar, já que existem apenas três métodos que lhe permitem utilizar este recurso. Para marcar um determinado local em uma tabela necessitamos criar uma nova instancia de TBookmark e executar o método GetBookMark de uma

Continuar lendo »

Número de cores aceitas pelo monitor

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

Continuar lendo »

Alterando a data do sistema

Alterando a data do sistema Como alterar a data do sistema via Delphi 1a. Parte: A função. function SetNewTime(Ano, Mes, Dia, hour, minutes: word): Boolean; var st:TSYSTEMTIME; begin GetLocalTime(st); st.wYear := Ano; st.wMonth := Mes; st.wDay := Dia; st.wHour := hour; st.wMinute := minutes; if not SetLocalTime(st) then Result := False else Result := True;

Continuar lendo »
Pages:«12345678...22»