Urgencia

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;