Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз
Глумимся над 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.012 c
