DICAS DE WINDOWS XP PARA TODOS (DÊ A SUA COLABORAÇÃO)
27/02/2003
0
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
Posts
27/02/2003
Anonymous
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.
27/02/2003
Leorrn
:twisted:
27/02/2003
Anonymous
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
27/02/2003
Dbezerra
fiz isso no meu, depois quis voltar a habilitar o taskmanager e naum consegui mais, tive q formatar
estamos de olho!
27/02/2003
Anonymous
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
28/02/2003
Flavio Sanches
Caso não funcione, preciso muito de algo que bloqueie o danado do ctrl+alt+del o alt+f4 e a tecla window.
valew
28/02/2003
Aroldo Zanela
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.
28/02/2003
Newbye
No No No Rwindows Xp no
No No No VB No
hehehehe mais dicas ae galera
28/04/2003
Rodrigo_rcp
OnKeyPress
begin
if key=vk_f4 then
abort;
end;
end.
Clique aqui para fazer login e interagir na Comunidade :)
