Paulo Nobre

Prezado Capablanca, Obrigado por sua atenção. Acho legal a sua idéia, mas como disse a você minha experiência com banco de dados é quase nenhuma, mas se você tiver paciência com um aluno com pouca experiência, mas boa vontade para aprender ,topo o desafio. Via internet o trabalho será bem lento, pois minha conexão é discada e em casa só acesso nos fins de semana. No trabalho acesso pela manhã antes das sete e não tenho o Delphi instalado. Mas devagar talvez chegue lá. Com o que você disse anteriormente, podemos concluir que sem banco de dados é impossível fazer o que eu queria? Paulo Nobre

Prezado Capablanca As razões seriam as seguintes: 1) Tenho pouca experiência com banco de dados;(já fiz algumas coisas simples), mas os simples programas que faço não usam banco de dados, talvez porque não seja profissional da área de programação. Sou professor de matemática e quase tudo que já fiz está relacionado para esta área. Em uma das escolas que trabalho percebi uma folha afixada com as datas de aniversário dos funcionários e tive está idéia. 2) Uma distribuição sem banco dados é sempre mais simples(não precisa de BDE e outros) ,e o programa na distribuição poderia caber até num disquete. Obrigado por sua atenção! Paulo Nobre

PrezadosColaboradores Será que alguém poderia ajudar dando uma idéia de como fazer uma sistema para verificar se a uma data de aniversário de uma pessoa ,previamente catalogada, coincide com a data do sistema e a partir disto exibir uma mensagem. O que eu gostaria de saber é como seria o código para ler todas as datas em algum lugar (TALVEZ UM TXT) e comparar com a data do sistema. OBS: não gostaria de fazer com banco de dados. Alguém? Paulo Nobre

Resolvido, pode fechar. Verifico qual é a plataforma com um if. Se for xp, uso o código acima , caso contrário uso a função winexitex, que funciona no 98. Paulo Nobre

Alguém pode ajudar? Quem já tentou escrever um código para desligamento do windows de dentro de um programa poderá ter tido algum problema para desligar o windows XP, devido as restrições do usuário. Isso se resolve usando a função: function WinExit(flags: integer): boolean; function SetPrivilege(privilegeName: string; enable: boolean): boolean; var tpPrev, tp : TTokenPrivileges; token : THandle; dwRetLen : DWord; begin result := False; OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token); tp.PrivilegeCount := 1; if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then begin if enable then tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else tp.Privileges[0].Attributes := 0; dwRetLen := 0; result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen); end; CloseHandle(token); end; begin if SetPrivilege('SeShutdownPrivilege', true) then begin ExitWindowsEx(flags, 0); SetPrivilege('SeShutdownPrivilege', False) end; winExit:= True; end; //A função acima desliga o windows //************************************************************************** Aí, num botão de comando ou num menu basta digitar o código: WinExit(EWX_POWEROFF); E o PROBLEMA ESTÁ RESOLVIDO. O problema é que no windows 98 nada acontece. Alguém sabe como resolver este problema, ou seja, um código que desligue os dois sistemas operacionais. Tentei, WinExit(EWX_POWEROFF or EWX_SHUTDOWN OR EWX_FORCE); E TODAS AS COMBINAÇÕES POSSíveis e nada acontece no 98. Observe que EWX_POWEROFF tem que ter para fechar totamente o XP. Alguma ajuda? PS: Quem forneceu o código da função foi um colaborador deste forum, o s3c, aliás onde anda o s3c? Paulo Nobre

Me desculpem pela ignorância. Eu estava digitando o procedimento no evento errado. Funciona sim! Muito obrigado pela atenção e mais uma vez me desculpem. Paulo Nobre

Gostaria de mudar o caption do meu form em TEMPO DE EXECUÇÃO. Alguém sabe como fazê-lo. Fazendo Form.caption:= ' O caption vai mudar' não funciona, pois acho que o caption está definido não como string e sim como TCaption. Acho que o que está faltando para mim é o conhecimento de orientação a objeto. Agradeço a ajuda. Paulo Nobre

Obrigado Francenelson, pela sua atenção em responder. Paulo Nobre

valeu Corn, pela dica. Paulo Nobre

Como seria um código para detectar o tipo de sitema operacional? Paulo Nobre

No windows 98 também é o Desk.cpl. Alguma outra sugestão? Paulo Nobre

Vou procurar Obrigado. E caso seja outro, como faria para poder atender os dois sistemas operacionas. Windows 98 e XP? Paulo Nobre

Alguém sabe dizer se o código abaixo funciona em qualquer sitema operacional e qualquer word Var MSWord: Variant; begin Caminho:= ExtractFilePath(Application.ExeName)+'\Arquivos de Texto\Logaritmos'; Try MSWord:= CreateOleObject('Word.basic'); MSWord.AppShow; MsWord.fileopen(Caminho); Except MessageBox(frmPrincipal.Handle,'O arquivo não pode ser aberto. Verifique se o WORD está instalado no seu computador ou se o arquivo não foi movido.','OPERAÇÃO NÃO EFETUADA',MB_ICONSTOP); end; Para mim funcionou com XP + Word 2003 Quando testei Windows 98 + Word XP nada aconteceu. Faz sentido?? Paulo Nobre

Este código abre as configurações de vídeo do windows XP WinExec('RunDLL32.exe Shell32.DLL,Control_RunDLL Desk.cpl', SW_Show) Acontece que no windows 98 nada acontece! Sem idéia melhor tentei ShellExecute (0,'open','RunDLL32.exe Shell32.DLL,Control_RunDLL Desk.cpl',nil,nil,SW_SHOWNORMAL); Nada acontecendo. Alguém sabe como poderia resolver? Paulo Nobre

Alguém pelo menos conhece algum forum ou lugar para estudar estes comandos do word?

Gostaria de uma ajuda para o seguinte problema: Tenho um programinha com um listbox com nomes de listas de exercícios. Quando clico no nome da lista, esta lista que foi feita no Word é aberta. Faço, Var MSWord: variant; Caminho: string; begin try MSWord:= CreatOleObject('word.basic'); MSWord.appshow; begin If LisboxConcursos.itemindex = 0 then caminho:= blá, blá,... else if etc... ... end;// abreviei em cima mas está tudo funcionando corretamente. MSWord.fileopen(caminho); O problema que gostaria de resolver é o seguinte. Ao clicar numa outra lista(mantendo a primeira aberta) com estes comandos o word é aberto de novo. Portanto se eu resolvesse abrir todas as listas teria o word aberto muitas vezes o que além de deselegante poderia estourar(exagero) a memória de um computador com pouca ram. Qual o código que deveria criar para não abrir de novo o word se ele já estivesse aberto, ou seja abrir apenas o arquivo. Uma outra pergunta é: por que quando clico em MSword.(ponto) não aparecem as opções possíveis depois do ponto como fileopen,appshow etc.. Se pudesse fazer isso poderia testar as opções. Por exemplo não sei se existe MSWord.close! Existe uma maneira de fazer estas opções aparecerem depois do ponto? Alguém poderia dar uma força. Paulo Nobre

Muito obrigado Capablanca. Paulo Nobre

Alguém poderia me fornecer um código simples, para verificar se uma determinada aplicação já está sendo rodada? O código abaixo não está funcionando!! Se você quiser executar uma única copia do aplicativo, o código de inicialização do arquivo fonte do PROJETO pode ser escrito conforme segue: } program Project1; uses Forms, Windows, Dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} Var HprevHist : HWND; begin Application.Initialize; HprevHist := FindWindow(Nil, PChar('TheProgrammer')); if HprevHist = 0 then begin Application.Title := 'TheProgrammer'; Application.CreateForm(TForm1, Form1); Application.Run; end else MessageDlg('Você não pode executar outra cópia do aplicativo', mtInformation, [mbOK], 0); {Com esse código o usuário pode iniciar uma nova copia do aplicativo somente se não houver outra anterior. Caso contrario é exibido uma mensagem para o usuário.} peguei num site para delphi Paulo Nobre

ok s3c Aprendi a usar. Paulo Nobre PS: Pode fechar o tópico

s3c, funcionou Obrigado Apenas o seguinte: nunca funciona com o nome do programa ou funciona em alguns casos? Paulo Nobre

Alguém já usou o componente RXTrayIcon da bibliotexa RXLib? Tentei usar e não consegui! No help diz que é para windows95 e NT. Alguém já usou em outro windows? Alguém poderia dar alguma dica para seu uso?

O código que encontrei por aí não funciona nem a pau: PostMessage(FindWindow(nil,'Nome do progama'),WM_CLOSE,0,0); uma variação, que também não funciona é SendMessage(FindWindow(nil,'Nome do progama'),WM_CLOSE,0,0); Alguém já usou isto? Paulo Nobre

hencker, estou lhe mandando o email Paulo Nobre

Qual o significado de "handle", que aparece como parâmetro de diversas funções e também como muitas vezes se referindo a uma janela(não sei se falei besteira aqui?). Alguém poderia fazer comentários teóricos sobre o assunto? Paulo Nobre

Tenho um programa, que num determinado menu, abre um EXE. Quando fecho o programa o EXE continua aberto. Como faço para ao fechar o programa, fechar também o exe? Qual o código para fechar o exe independente do programa? Paulo Nobre