Urgencia

Delphi

18/02/2003

Estou criando um sistema para protecao do ruindows ou seja uma senha para entrar no ruindows. Este prog usa uma consulta num Banco de Dados por SQL e retorna um valor. Se senha corresponde com usuario ele habilita os icones da area de trabalho e a barra de Inicio. Quero q Quando a senha de incorreta ele feche(tornar invisivel) o prog, mude o papel de parede o ruindows e conte 2 clicks do mouse e reinicie o ruindows...


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

18/02/2003

Sinceramente camarada, eu não sei nem a metade do que vc esta pedindo, mas na parte de esconder os ícones da área de trabalho acho que eu posso ajudar.


aqui vão alguns fontes que eu retirei do 750 dicas e truques.

Esconde/Mostra a Barra de Tarefas

procedure EscondeTaskBar(Visible: Boolean);
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0],´Shell_TrayWnd´);
wndHandle := FindWindow(@wndClass[0], nil);
If Visible=True Then Begin
ShowWindow(wndHandle, SW_RESTORE); {Mostra a barra de tarefas}
End Else Begin
ShowWindow(wndHandle, SW_HIDE); {Esconde a barra de tarefas}
End;
end;


Escondendo o Programa de Ctrl+Alt+Del


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista ´Ctrl+Alt+Del´}
Const
Servico_Simples = 1;
Servico_Unregister = 1;

Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External ´KERNEL32.dll´;


procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, Servico_Simples);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister);
end;
end.



Escondendo/Mostrando o botão Iniciar



procedure EscondeIniciar(Visible:Boolean);
Var taskbarhandle,
buttonhandle : HWND;
begin
taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
If Visible=True Then Begin
ShowWindow(buttonhandle, SW_RESTORE); {mostra o botão}
End Else Begin
ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}
end;
end;




Esconder icones do desktop


ShowWindow(FindWindow(nil,´Program Manager´),SW_HIDE);
Para mostrar :

ShowWindow(FindWindow(nil,´Program Manager´),SW_SHOW);



Esconder o icone da Barra de Tarefas


//Insira estas linhas no onShow do seu Aplicativo para que ele fique invisível
//na barra do menu Iniciar:


var
H : HWnd;
begin
H := FindWindow(Nil,´Project1´); {troque project1 pelo nome do seu projeto)
if H <> 0 then ShowWindow(H,SW_HIDE);
end;


GOSTEI 0
POSTAR