DICAS DE WINDOWS XP PARA TODOS (DÊ A SUA COLABORAÇÃO)
Ae Pessoal
Navegando neste fórum vi que tem muitos que, assim como eu, têm várias duvidas sobre algumas rotinas para windows XP.
Por isso galera, vamos postar aqui um pouco do conhecimento de cada um para que um ajude o outro e que no final, todos saem ganhando.
Desativar teclas (ex. Alt+F4, Ctrl+Alt+Del), travar tela, reiniciar, desligar, efetuar logoff, executar serviço, gerenciamento remoto etc. Tudo que puder completar esse tópico.
Tenho certeza que com a cooperação de todos, todos sairam ganhando, o conhecimento de um ajudará o próximo e tenho certeza que o próximo também terá uma dica para ajudar.
Agradeço a todos
Windows XP
Navegando neste fórum vi que tem muitos que, assim como eu, têm várias duvidas sobre algumas rotinas para windows XP.
Por isso galera, vamos postar aqui um pouco do conhecimento de cada um para que um ajude o outro e que no final, todos saem ganhando.
Desativar teclas (ex. Alt+F4, Ctrl+Alt+Del), travar tela, reiniciar, desligar, efetuar logoff, executar serviço, gerenciamento remoto etc. Tudo que puder completar esse tópico.
Tenho certeza que com a cooperação de todos, todos sairam ganhando, o conhecimento de um ajudará o próximo e tenho certeza que o próximo também terá uma dica para ajudar.
Agradeço a todos
Windows XP
Anonymous
Curtidas 0
Respostas
Anonymous
27/02/2003
Ae
Segue a minha colaboração, se encontrar mais eu posto aqui.
Valeu
==============================
DESABILITAR ALT+F4 (todos os windows)
==============================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
BtFechar: TButton;
procedure BtFecharClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fechar : boolean;
implementation
{$R *.dfm}
procedure TForm1.BtFecharClick(Sender: TObject);
begin
Fechar := true;
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Fechar;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Fechar := false;
end;
end.
Segue a minha colaboração, se encontrar mais eu posto aqui.
Valeu
==============================
DESABILITAR ALT+F4 (todos os windows)
==============================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
BtFechar: TButton;
procedure BtFecharClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fechar : boolean;
implementation
{$R *.dfm}
procedure TForm1.BtFecharClick(Sender: TObject);
begin
Fechar := true;
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Fechar;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Fechar := false;
end;
end.
GOSTEI 0
Leorrn
27/02/2003
Para desabilitar o ctrl+alt+del basta renomear o taskmanager !!!!!
:twisted:
:twisted:
GOSTEI 0
Anonymous
27/02/2003
olá
está dica só funciona no modo login bonitinho :)
Desabilitar o Ctrl+Alt+Del (XP)
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey(´Software´, True);
reg.OpenKey(´Microsoft´, True);
reg.OpenKey(´Windows´, True);
reg.OpenKey(´CurrentVersion´, True);
reg.OpenKey(´Policies´, True);
reg.OpenKey(´System´, True);
if bTF = True then
begin
reg.WriteString(´DisableTaskMgr´, ´1´);
end
else if bTF = False then
begin
reg.DeleteValue(´DisableTaskMgr´);
end;
reg.CloseKey;
end;
// Example Call:
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;
nao esqueça de declarar Registry na USES
faloExp
está dica só funciona no modo login bonitinho :)
Desabilitar o Ctrl+Alt+Del (XP)
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey(´Software´, True);
reg.OpenKey(´Microsoft´, True);
reg.OpenKey(´Windows´, True);
reg.OpenKey(´CurrentVersion´, True);
reg.OpenKey(´Policies´, True);
reg.OpenKey(´System´, True);
if bTF = True then
begin
reg.WriteString(´DisableTaskMgr´, ´1´);
end
else if bTF = False then
begin
reg.DeleteValue(´DisableTaskMgr´);
end;
reg.CloseKey;
end;
// Example Call:
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;
nao esqueça de declarar Registry na USES
faloExp
GOSTEI 0
Dbezerra
27/02/2003
ae galera, essa dica aqui em cima eh perigosa.
fiz isso no meu, depois quis voltar a habilitar o taskmanager e naum consegui mais, tive q formatar
estamos de olho!
fiz isso no meu, depois quis voltar a habilitar o taskmanager e naum consegui mais, tive q formatar
estamos de olho!
GOSTEI 0
Anonymous
27/02/2003
AE dbezerra
Pq nao conseguiu voltar?
Era só no máximo ir no registro e apagar a entrada cadastrada ou somente colocar
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(FALSE);
end;
que já voltava ao normal :P
falo isso pq uso em algumas aplicações e nunca deu problema.
a nao ser que o cara faça burrada :P
abracaum do ExP
Pq nao conseguiu voltar?
Era só no máximo ir no registro e apagar a entrada cadastrada ou somente colocar
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(FALSE);
end;
que já voltava ao normal :P
falo isso pq uso em algumas aplicações e nunca deu problema.
a nao ser que o cara faça burrada :P
abracaum do ExP
ae galera, essa dica aqui em cima eh perigosa.
fiz isso no meu, depois quis voltar a habilitar o taskmanager e naum consegui mais, tive q formatar
estamos de olho!
GOSTEI 0
Anonymous
27/02/2003
Vamu postar mais galera
GOSTEI 0
Flavio Sanches
27/02/2003
Será que isso funciona pra 2000???
Caso não funcione, preciso muito de algo que bloqueie o danado do ctrl+alt+del o alt+f4 e a tecla window.
valew
Caso não funcione, preciso muito de algo que bloqueie o danado do ctrl+alt+del o alt+f4 e a tecla window.
valew
GOSTEI 0
Aroldo Zanela
27/02/2003
Dica Básica:
Utilizar XPManifest para forçar a inclusão do arquivo de recurso ´manifest´ na sua aplicação. Isto permitirá a mesma apresentar os novos controles sob o XP e controles antigos nas demais versões.
Utilizar XPManifest para forçar a inclusão do arquivo de recurso ´manifest´ na sua aplicação. Isto permitirá a mesma apresentar os novos controles sob o XP e controles antigos nas demais versões.
GOSTEI 0
Newbye
27/02/2003
bom odeio aquela creca do tio cada vez piora o kra é um retardato ele mudou totalmente o xp causando uma imcompatibilidade q so nos programadores conhecemos e a creca do vb anda pelo mesmo caminho
No No No Rwindows Xp no
No No No VB No
hehehehe mais dicas ae galera
No No No Rwindows Xp no
No No No VB No
hehehehe mais dicas ae galera
GOSTEI 0
Rodrigo_rcp
27/02/2003
desabilitar Alt+f4
OnKeyPress
begin
if key=vk_f4 then
abort;
end;
end.
OnKeyPress
begin
if key=vk_f4 then
abort;
end;
end.
GOSTEI 0