[Delphi] jak zablokowac pulpit? - ukrywanie menu start

chodzi mi o to zeby nie mozna bylo na nim klikac itd

Kolejny trojan?

Zrób screena pulpitu i formę walnij na pełny ekran, na formie image na algin allclient, i wczytujesz zrzut pulpitu na image.

tak ale na formie mam juz inne komponenty

<font color="green">tak ale na formie mam juz inne komponenty</span>

To daj im visible na false o ile mają ;-)

To główną formę zrób tak jak pisałem a zrób sobie jeszcze drugą - i na nią wrzuć komponenty [zeby]

no faktycznie:-) a jak ukryc pasek startu?

Niewiem czy dobrze rozumiem - chcesz zablokować pulpit całkowicie?
Jeżeli tak to należy odwołać się do rejestru. Oto przykład jak ukryć ikony z pulpitu:
REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDesktop"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun]

Zaś poniżej całkowite uniemożliwienie zrobienia cokolwiek. Jest to sposób jak ominąć problem z logowaniem DEFAULT w windows 9x.
Skrypt jest wycinkiem mojej magisterki tak więc mile widziane komentarze (samo źródło skryptu gdzieś leży w sieci ale niepamiętam adresu WWW).
Przed próbą radze (Prosze to wykonać koniecznie!!!) ZROBIĆ KOPIE REJESTRU ABY MOŻNA BYŁO PRZYWRÓCIĆ REJESTR.

Oto przykładowy skrypt ograniczający całkowity dostęp.
REGEDIT4

[HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"NoDesktop"=dword:00000001 ; wylacz puplpit
"NoNetHood"=dword:00000001 ; Ukryj ikone Otoczenie
"NoInternetIcon"=dword:00000001 ; ukryj ikone IE
"NoRun"=dword:00000001 ; brak w Menu Start RUN
"NoFind"=dword:00000001 ; brak polecenia SZUKAJ (ALT+F3)
"NoRecentDocsMenu"=dword:00000001 ; ukryj funkcje dokumenty
"NoStartMenuSubFolders"=dword:00000001 ; ukryj podfoldery Menu Start
"NoSetTaskbar"=dword:00000001 ; ukryj funkcje ustawienia->
panel sterowania i drukarki
"NoSetFolders"=dword:00000001 ; ukryj funkcje ustawienia->
pasek zadan i menu start
"NoSetActiveDesktop"=dword:00000001 ; ukryj funkcje ustawienia->
active desktop
"NoChangeStartMenu"=dword:00000001 ; wylacz menu kontekstwoe Menu
Start
"NoEditMenu"=dword:00000001 ; brak mozliwosci edycji Menu
Start
"NoPrinterTabs"=dword:00000001 ; ukryj strone Wlasciwosci
drukarki->„ogólne” i
„szczególy”

[HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp]

"Disabled"=dword:00000001 ; wylacz tryb MS-DOS
"NoRealMode"=dword:00000001 ; wylacz ponowne uruchomienie w
trybie MS-DOS

[HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\Network]

"NoNetSetup"=dword:00000001 ; wylacz karte siec

[HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\System]

"DisableRegistryTools"=dword:00000001 ; wylacz edycje rejestru
"NoDispCPL"=dword:00000001 ; wylacz karte „wlasciwosci
ekranu”
"NoSecCPL"=dword:00000001 ; wylacz karte „hasla”
"NoDevMgrPage"=dword:00000001 ; wylacz „menedzer urzadzen”
"NoConfigPage"=dword:00000001 ; ukryj strone „profile przetu”
"NoFileSysPage"=dword:00000001 ; ukryj przycisk „System
plików”
"NoVirtMemPage"=dword:00000001 ; ukryj przycisk „Pamiec
wirtualna”

[HKEY_CURRENT_USER
Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun]

"1"=""

Jak widzisz możesz tylko niektóre funkcje użyć.

Jak chowac TaskBar? masz: [cygaro]

//Schowac

procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;

//Poakazac
procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);

No to dziala, czy nie??? [hurra]