Скачать: CL | DM;

Глумимся над Windows   Найти похожие ветки 

← →
Михаааааааааа   (2003-10-04 15:25) [0]

Давайте выкладвыать здесь коды на Delphi чтоб глумится над Windows. Я первый:
Вот так можно навсегда удалить кнопку пуск, или добавить её обратоно:

procedure Show;
Var
Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
visi : boolean;
Begin
visi := true;
Tray := FindWindow("Shell_TrayWnd", NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0 do Begin
If GetClassName(Child, C, SizeOf(C)) > 0 Then Begin
S := StrPAS(C);
If UpperCase(S) = "BUTTON" then begin
If Visi then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;

Чтобы убрать пуск нужно в начале вместо true поставить false;

---

← →
Digitman ©   (2003-10-04 15:35) [1]

> Давайте выкладвыать


давайте ерундой не страдать, а делать что-то конструктивное и полезное

---

← →
Михаааааааааа   (2003-10-04 15:37) [2]

Что может быть полезней и конструктивней, чем выпускать своё зло на винду!?

---

← →
Digitman ©   (2003-10-04 15:40) [3]

> Михаааааааааа


скажу одно - детство у тебя в одном причинном месте играет пока еще)

---

← →
Михаааааааааа   (2003-10-04 15:42) [4]

Удалено модератором

---

← →
Palladin ©   (2003-10-04 15:48) [5]

> Михаааааааааа

не плюй в колодец откуда пьешь...

---

← →
Владислав ©   (2003-10-04 16:03) [6]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:22) [7]

Удалено модератором

---

← →
Михаааааааааа   (2003-10-04 16:25) [8]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:31) [9]

Удалено модератором

---

← →
Михаааааааааа   (2003-10-04 16:34) [10]

Удалено модератором

---

← →
Михаааааааааа   (2003-10-04 16:35) [11]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:37) [12]

Удалено модератором

---

← →
Михаааааааааа   (2003-10-04 16:38) [13]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:39) [14]

Удалено модератором

---

← →
Михаааааааааа   (2003-10-04 16:41) [15]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:45) [16]

Удалено модератором

---

← →
Владислав ©   (2003-10-04 16:53) [17]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.014 c