
s3c
Membros-
Total de itens
817 -
Registro em
-
Última visita
Tudo que s3c postou
-
Deixe FormStyle = fsNormal; e quando for exibir deixe FormStyle = fsMDIChild;
-
Ela já vem documentada em RoteiroUtilizDllInsc.doc. Tem uma função de validar a IE, onde você informa a Inscirção Estadual e a UF e ela retorna 0=válido >0=inválido .
-
Olá Tbaiano, aquele arquivo DLL3.zip é uma dll que valida todas as IE e tem um exemplo em Delphi de como chamá-la.
-
Olá, visite: http://www.sintegra.gov.br Clique em Serviços/Download. Baixe o arq DLL3.zip
-
Olá escobar; sua classe TFormChannel descende que qual classe ?
-
Olá colega; poste o código referente à criação dos MDIChild.
-
Com o PageControl mesmo, conforme título.
-
Exatamente Paulo Com isso você forçou o redesenho da área de status da taskbar.
-
Olá Paulo, verifique se ele coloca um ícone junto ao relógio. Após o ShowWindow, coloque: NI.cbSize := SizeOf(NI); NI.Wnd := Handle; NI.uID := 0; NI.hIcon := Application.Icon.Handle; NI.uFlags := NIF_ICON; Shell_NotifyIcon(NIM_Add, @NI); Se for colocado, então após Shell_NotifyIcon(NIM_Add, @NI); coloque Shell_NotifyIcon(NIM_Delete, @NI); Se não for colocado, veja se você tem a variável NotifyIconData_V2_Size; se tiver, troque NI.cbSize := SizeOf(NI); por NI.cbSize := NotifyIconData_V2_Size; Isto porque pode ser problema da versão da dll, o meu é o Win2000, pode ser que o XP seja diferente.
-
GetDiskFreeSpace
-
Olá Paulo, poste os dois códigos.
-
Se você estiver utilizando TServerSocket e TClientSocket, utilize SendBuf/ReceiveBuf ao invés de SendText/ReceiveText.
-
uses Registry; var Reg:TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.DeleteKey('\Software\Kodak'); Reg.Free; end;
-
Olá Paulo, na verdade Shell_NotifyIcon é uma função da api shell32 que trabalha c/ ícones da área de status da taskbar(área do relógio). você pode inserir, deletar e modificar ícones desta área com essa função. Esse código não tem lógica alguma; simplesmente dá uma cutucada naquela área e com isto ela é forçada a ser redesenhada. É SizeOf e NIM_DELETE p/ os dois casos. Convém limpar a estrutura NI antes do NI.cbSize para um caso raro do handle de algum ícone coincidir e ele ser deletado: FillChar(NI, SizeOf(NI), 0); NI.cbSize := SizeOf(NI); Shell_NotifyIcon(NIM_Delete, @NI);
-
Olá Paulo, tente mandar uma msg p/ a área de status da taskbar: uses ShellAPI; var NI:TNotifyIconData; begin ShowWindow( FindWindowEx(FindWindowEx( FindWindow('Shell_TrayWnd', nil), HWND(0), 'TrayNotifyWnd', nil), HWND(0), 'TrayClockWClass', nil), Sw_Hide); NI.cbSize := SizeOf(NI); Shell_NotifyIcon(NIM_Delete, @NI); end; E o mesmo para mostrar o relógio.
-
Após SetForegroundWindow, tente ShowWindow c/ parâmetro SW_Show.
-
Olá Thaise, qual sua dúvida? Se eu souber, posso responder.
-
sqltrocadaspectroc_valor deve ser um dataset e não tem a propriedade Value. Se for isto, você tem que pegar o TField.Value do dataset.
-
Após o Perform: SelStart := SelStart + coluna;
-
Olá colega, existe também a função Beep da Kernel32 declarada em Windows.pas Com ela você define a frequência e duração, ex: Windows.Beep(150, 200);
-
Olá Paulo, bom mutex siginifica mutual exclusive; são objetos de exclusividade mútua e são muito utilizados em sincronismo de processos. O Windows os disponibiliza na api kernel32. Por ex, você pode criar várias threads em seu programa e querer que elas sejam executadas em série(uma após a outra) e não concorrentemente; para isto você pode utilizar esses objetos. O segundo parâmetro de CreateMutex diz p/ pegar a posse do objeto, se ele retorna Ok, então você terá certeza que nenhum outro processo está utilizando esse objeto; quando do segundo em diante tentar pegar a posse do objeto, a função CreateMutex retornará ERROR_ALREADY_EXISTS, ou seja, alguém já está com a posse e não o liberou ainda. Note que exsite um try finally no código e daí você pode pensar: Em todas as tentativas de chamada do programa, elas sempre irão executar ReleaseMutex, mas ReleaseMutex só liberará o objeto p/ aquele que estiver com a posse.
-
você pode utilizar um TList e ir adicionando lá as threads criadas. TThread(List).Terminate; // Finaliza TThread(List).Suspend; // Suspende TThread(List).Resume; // Reinicia a thread suspensa
-
Olá, bom aí você me pegou, mas acho que você terá que fazer na mão utilizando o evento onNeedData do QuickRep.
-
Olá colega, a cláusula Where aplica-se à toda sua Select, é por isso que ele está mostrando somente o que tem em ponto daquele dia. Tente assim: left join ponto on (ponto.apelido = funcionario.apelido and ponto.data between '02/22/2005' and '02/22/2005') where funcionario.empresa = 'UNIMED BARRETOS'