fjerne Kontrolpan

hehe :-)

/ZIRON

et drilleprogram?
:)

Hvad med at lave din egen Explorer og så bede windows køre denne i stedet for sin egen, det kunne man engang, ved ikke om det stadig er muligt

hej ziron
nej stone se på http://www.eksperten.dk/spm/80246

hej hej sagde den glade ziron som skal op i kemi imorgen.... FUCK DET...

/ZIRON

//For at skjule hele Taskbaren:
  ShowWindow(FindWindow(\'Shell_TrayWnd\', nil), SW_HIDE);

//Bare at fjerne start-menu-knappen:
  Rgn := CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow(\'Shell_TrayWnd\', nil), 0,\'Button\', nil), Rgn, true);

//For blot at disable start-menu-knappen:
  EnableWindow(FindWindowEx(FindWindow(\'Shell_TrayWnd\', nil), 0, \'Button\', nil), false);

en start...

Med hensyn til skrivebordet, kan man med activedesktop fjerne alle ikoner på skrivebordet - hvis der er installeret Win98, eller hvis der er Win95 og installeret IE 4/5.

uses ShlObj, ActiveX;
var ad: iactivedesktop;
begin
  cocreateinstance(clsid_activedesktop, nil, CLSCTX_INPROC_SERVER, stringtoguid(sid_iactivedesktop), ad);
  //herunder indsætter du så noget kode, der fjerner ikonerne, kan ikke lige finde den nu, men den er der!!!
  ad.ApplyChanges(AD_APPLY_ALL);
  ad._release;
end;

Hej her er nogle ting som måske kan hjælpe dig:

//Desktop:
ShowWindow(FindWindow(nil, \'Program Manager\'), SW_HIDE);//De er væk
ShowWindow(FindWindow(nil, \'Program Manager\'), SW_SHOW);//De kommer igen

//Startmenu:
ShowWindow(FindWindowEx(FindWindow(\'Shell_traywnd\', nil), 0, \'Button\',nil),0);//Hide startbutton
ShowWindow(FindWindowEx(FindWindow(\'Shell_traywnd\', nil), 0, \'Button\',nil),1);//Show startbutton


Om de andre ting har jeg en ide som jeg vil se lidt mere på.

oky venter

jeg lukker der god jul