travar a jenela do DOS
Amigos
Preciso desenvolver um pequeno programa que trave qualquer janela do DOS, apos alguns minutos de uso. Vou Explicar porque: tenho uma lanhouse e alguns usuarios utilizam programas ainda em DOS, programas em Clipper principalmente e jogos. Bem não quero que seja utilizado por isto pretendo travar.
Ja fiz com que ele travasse a janela do Dos, mas quando tem um programa tenho que informar o path e estava querendo algo como qualquer programa que fosse utilizado na Janela do DOS.
o codigo fica assim:
PostMessage(FindWindow(nil,´C:\BEMATECH\FISCAL\DOS\EMULFI2.EXE´), WM_CLOSE, 0, 0);
e tambem no windows 2000 e XP aparece aquela janela de confirmação, quero tirar ela. o programa deve ser fechado sem consultar o usuario.
outro problema e quando tento iniciar meu programa junto com o windows dar um excepção de registro e estou utilizando a rotina abaixo
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
Openkey(´\MICROSOFT\WINDOWS\CURRENTVERSION\RUN´,false);
writestring(´winmsg2k´, pchar(application.exename));
closekey;
end;
se alguem puder ajudar agradeço
Preciso desenvolver um pequeno programa que trave qualquer janela do DOS, apos alguns minutos de uso. Vou Explicar porque: tenho uma lanhouse e alguns usuarios utilizam programas ainda em DOS, programas em Clipper principalmente e jogos. Bem não quero que seja utilizado por isto pretendo travar.
Ja fiz com que ele travasse a janela do Dos, mas quando tem um programa tenho que informar o path e estava querendo algo como qualquer programa que fosse utilizado na Janela do DOS.
o codigo fica assim:
PostMessage(FindWindow(nil,´C:\BEMATECH\FISCAL\DOS\EMULFI2.EXE´), WM_CLOSE, 0, 0);
e tambem no windows 2000 e XP aparece aquela janela de confirmação, quero tirar ela. o programa deve ser fechado sem consultar o usuario.
outro problema e quando tento iniciar meu programa junto com o windows dar um excepção de registro e estou utilizando a rotina abaixo
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
Openkey(´\MICROSOFT\WINDOWS\CURRENTVERSION\RUN´,false);
writestring(´winmsg2k´, pchar(application.exename));
closekey;
end;
se alguem puder ajudar agradeço
Dpinho
Curtidas 0
Respostas
Dpinho
03/12/2004
Alguem pode ajudar????
GOSTEI 0
Kroki
03/12/2004
tenho um programa de restricao que uso na minha Lan.
/Restringe varias coisas pelo registro do Win,inclusive tira ascesso ao DOS.
Como programava em um Pc da Lan mesmo,um dia o HD do Pc pifou e eu perdi as fontes do programa(nao lembro aonde restringir o DOS).
se quiser te mando.
/Restringe varias coisas pelo registro do Win,inclusive tira ascesso ao DOS.
Como programava em um Pc da Lan mesmo,um dia o HD do Pc pifou e eu perdi as fontes do programa(nao lembro aonde restringir o DOS).
se quiser te mando.
GOSTEI 0
Dpinho
03/12/2004
tenho um programa de restricao que uso na minha Lan.
/Restringe varias coisas pelo registro do Win,inclusive tira ascesso ao DOS.
Como programava em um Pc da Lan mesmo,um dia o HD do Pc pifou e eu perdi as fontes do programa(nao lembro aonde restringir o DOS).
se quiser te mando.
Meu programa ja esta quase pronto estou precisando saber o codigo pra restrigir as janelas do DOS. mas se puder manda algum condigo agradeceria
Claudiodpinho@hotmail.com
GOSTEI 0
Nerdex
03/12/2004
Eu também tive problema com leitura de dado do registro somente qdo o prog. roda na iniciaização do Win XP... Já fiz de tudo, mas a exception continua...
GOSTEI 0
Nerdex
03/12/2004
Openkey(´\MICROSOFT\WINDOWS\CURRENTVERSION\RUN´,false);
para escrever... no final tem q ser: true
GOSTEI 0
Dpinho
03/12/2004
Amigos
Preciso desenvolver um pequeno programa que trave qualquer janela do DOS, apos alguns minutos de uso. Vou Explicar porque: tenho uma lanhouse e alguns usuarios utilizam programas ainda em DOS, programas em Clipper principalmente e jogos. Bem não quero que seja utilizado por isto pretendo travar.
Ja fiz com que ele travasse a janela do Dos, mas quando tem um programa tenho que informar o path e estava querendo algo como qualquer programa que fosse utilizado na Janela do DOS.
o codigo fica assim:
PostMessage(FindWindow(nil,´C:\BEMATECH\FISCAL\DOS\EMULFI2.EXE´), WM_CLOSE, 0, 0);
e tambem no windows 2000 e XP aparece aquela janela de confirmação, quero tirar ela. o programa deve ser fechado sem consultar o usuario.
outro problema e quando tento iniciar meu programa junto com o windows dar um excepção de registro e estou utilizando a rotina abaixo
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
Openkey(´\MICROSOFT\WINDOWS\CURRENTVERSION\RUN´,false);
writestring(´winmsg2k´, pchar(application.exename));
closekey;
end;
se alguem puder ajudar agradeço
To precisando mais e monitorar a janela do DOS, meu registro ja conseguir resolver era relmante porque estava true em vez de false
GOSTEI 0
Dpinho
03/12/2004
Alguma dica????
GOSTEI 0