Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Прикол с системной палитрой

Автор: ВоВеЦ 25.6.2006, 04:57

hi all
Вообщем есть один скрипт, каторый меняет системную палитру, вот он:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
const
 SySColorArray: array [0..13] of Integer = (COLOR_ACTIVEBORDER,
 COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACKGROUND,
 COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT, COLOR_INACTIVEBORDER,
 COLOR_INFOTEXT, COLOR_MENU, COLOR_MENUTEXT, COLOR_WINDOW, COLOR_WINDOWFRAME,
 COLOR_WINDOWTEXT);

 ColorArray: array [0..10] of TColor = (clAqua, clBlack, clBlue, clYellow,
          clFuchsia, clGreen, clNavy, clRed, clSilver, clWhite, clSkyBlue);
begin
  ShowWindow(Handle,SW_HIDE);
  ShowWindow(Application.Handle,SW_HIDE);
  SetSysColors(1, SySColorArray[random(13)], ColorArray[random(10)]);
end;

end.

Чтоб скрыть форму я добавил вот эти 2 строчки

Код


  ShowWindow(Handle,SW_HIDE);
  ShowWindow(Application.Handle,SW_HIDE);

Но форма пропадает только через время заданное в таймере, что мне сделать чтоб формы вообще небыло видно?
И ещё хотелось бы чтоб цвета менялись хаотичней, как бы мерцали, уменьшением времени таймера этим не добёшся, если знаете как, подскажите, заранее спасибо...

ПИСИ: я новичок в Делфи так что не судите строго)

Автор: Тьма 25.6.2006, 12:31

Код


  ShowWindow(Handle,SW_HIDE);    
  ShowWindow(Application.Handle,SW_HIDE);

эти строки надо писать в OnFormCreate

Автор: ВоВеЦ 25.6.2006, 15:07

Я же написал что я новичок, с OnFormCreate незнаком и непредставляю где она должна находится, если можно то поконкретней...

Автор: bems 25.6.2006, 15:27

Цитата(ВоВеЦ @ 25.6.2006, 04:57

)

уменьшением времени таймера этим не добёшся

почему? помоему именно так этого и можно добиться.

Цитата(ВоВеЦ @ 25.6.2006, 15:07

)

OnFormCreate незнаком и непредставляю где она должна находится

это событие формы OnCreate. Выдели форму и смотри заклядку events инспектора объектов. И вообще, если форма должна быть скрыта все время, может лучше без формы вовсе?

Добавлено @ 15:40
создай консольное приложение и весь код замени этим

Код


program HelpMe;
uses
  windows,graphics;

const
 SySColorArray: array [0..13] of Integer = (COLOR_ACTIVEBORDER,
 COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACKGROUND,
 COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT, COLOR_INACTIVEBORDER,
 COLOR_INFOTEXT, COLOR_MENU, COLOR_MENUTEXT, COLOR_WINDOW, COLOR_WINDOWFRAME,
 COLOR_WINDOWTEXT);

 ColorArray: array [0..10] of TColor = (clAqua, clBlack, clBlue, clYellow,
          clFuchsia, clGreen, clNavy, clRed, clSilver, clWhite, clSkyBlue);
begin
  while true do
   begin
   SetSysColors(1, SySColorArray[random(13)], ColorArray[random(10)]);
   sleep(200);
   end;
end.

ЗЫ ну ты и зверь, это ж тронуться можно

Автор: ВоВеЦ 25.6.2006, 23:22

bems cпасиб за help
Насчёт ЗЫ а чё нормально такое ощушенние что ты на танцполе находишся=))