Vivendo&Aprendendo

vlw s3c deu certiho falou Alexandre

Como fazer um contador para que grave em um arquivo txt o número de vezes que minha aplicação já foi executada... Toda vez que executar ele acrescenta mais 1 no número que estará no txt Fiz um aqui mas ele ta gravando um número que não tem nada a ver. falou Alexandre

Resolvido If AnsiSameText(NumHD1,NumHD2) then podem fechar esse post

valeu...

Como deletar um arquivo .exe por outro programa? falou Alexandre

Galera preciso de uma dica de como comparar duas strings; Uma delas recebe um valor que está dentro de um arquivo. Será que alguém ai pode me ajudar falou Alexandre

Não deu certo não... ele fica dando a mensagem depois que fecho e tento abrir novamente Alexandre

cara ele não nenhum exemplo de que parametro pode ser.... porque ai eu já não sei... vou fazer aki e se der certo eu te mando.. meu mail é aslalexandre@hotmail.com Alexandre

quando apertar CRTL+Space deverá aparecer os comandos que servem para aquela ocasião... coloque o nome da função... SERIALNUM; e testa ai Alexandre

não logo do inicio da sua UNIT terá uma clausula chamada USES adicione nela o nome WINDOWS falou Alexandre

não funciona para a família 9x do win... falou Alexandre

tenta declarar na clausula uses WINDOWS falou

Não deu certo não quando peço para abrir ele abre umas 10 vezes... deixa eu te explicar... Criei um relatório em Fortes Report e coloquei esse relatório de forma MDI, mas o form que vai com os componentes não pode ser MDI... então quero que quando clicar e ele não estiver aberto ele abra o relatório, mas quando já estiver de a mensagem. Entendeu? Alexandre

cola essa função depois da clausula implementation e declara ela na public e no evento onclick de um botão chama essa função... REPITO: Nunca testei e não sei se da certo... mas testa ai e posta o resultado falou Alexandre

cara nunca testei essa função, ai vai ela ... testa ai posta o resultado Function SerialNum(FDrive:String) :String; Var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); Result := IntToHex(Serial,8); Except Result :=''; end; end; falou Alexandre

Olá galera essa é fácil para vocês... porque eu to batendo cabeça nisso... como faço para verificar se um form está aberto e se ele estiver deve dar uma mensagem para o usuário caso contrário abre o form... falou Alexandre

cara existem várias formas de se fazer isso... uma delas é via programação e muito simples que é pegar o número de série do hd e salvar ele em um arquivo fora da pasta base do seu programa e toda vez que sua aplicação for iniciada ele compara o número do hd com o do arquivo se for igual ele roda beleza se não ele fecha... E exitem produtos a venda por ai que fazem por si próprios a prpteção do seu software. falou

E ai galera tudo beleza;... Preciso de uma função que capture a imagem da webcam.. alguém pode me ajudar... falou Alexandre

Amigo testa essa ai: 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; E em um botão coloque WinExit(EWX_POWEROFF); Testa ai e posta o resultado Vivendo&Aprendendo falou

qual o erro que esta ocorrendo... falou

Como faço para utilizar ele de forma MDI na minha aplicação... E como faço para verificar se um o form do relatório feito em RAVE esta aberto ou não... falou

Amigo testa dessa forma agora, mas a forma que o s3c passou tb funciona... Inclua na seção uses: Windows Na seção "private" do Form principal acrescente: procedure AppMsg(var Msg: TMsg; var Handled: Boolean); Na seção "implementation" acrescente (troque TForm1 para o nome do seu form principal): procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean); begin if (Msg.Message = wm_SysCommand) and (Msg.wParam = sc_ScreenSave) then Handled := true; end; No evento "OnCreate" do form principal, coloque: Application.OnMessage := AppMsg; falou qualquer coisa posta ai Alexandre - Vivendo&Aprendendo