Глумимся над 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:41) [15]

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

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