треснутый экран

[Bat{CMD}_Men]

Как получить эффект треснутого экрана.

Варианты сломать монитор или поместить на форму картинку с чужим треснутым экраном прошу НЕ ПРЕДЛАГАТЬ.

все должно выглядеть так, что на экране проступила трещина.

[Stilet]

В качестве скринсейвера?

[GunSmoker]

Использовать Z не предлагать!.

[ex.cluz]

Телепатия подсказывает мне, что человек хочет рисовать поверх всех окон.
Тогда, например, через HDC.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
 Canvas:TCanvas;
 ScreenDC:HDC;
begin
 ScreenDC := GetDC(0);
 Canvas:=TCanvas.Create();
 Canvas.Handle:=ScreenDC;
 Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height),Canvas,
        Rect(0,0,Screen.Width,Screen.Height));
 ReleaseDC(0,ScreenDC);
 Canvas.Free;
end;

Потом можно и PNG рисуночек с трещиной поверх скриншота накладывать и его показывать.

Хотите экстрима - копайте в сторону фракталов.

[Alex Cones]

Можно даже не фракталов. Ищем алгоритм рисования молнии, уменьшаем частоту ветвления.

[DomiNick]

Как оно должно в итоге выглядеть? С анимацией? Может Layered окна достаточно будет?

У меня был ScreenMate где-то про футболиста... Он делал "трещины"... Кажется на флеше... Поищу...

[GoodDA]

трещины хреновые, но работают

procedure next1(ca:tcanvas;x,y,n:integer;dx,dy:integer);
var k,i:integer;
begin
  if n<2 then exit;
  if abs(dx)<>1 then dx:= round(dx/abs(dx));
  if abs(dy)<>1 then dy:= round(dy/abs(dy));
  n:=round(n*0.8);
  ca.MoveTo(x,y);
  x:=x+random(n)*dx;
  y:=y+random(n)*dy;
  ca.LineTo(x,y);
  k:=random(3);
  for i:=1 to k do Next1(ca,x,y,n,dx,dy);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 Canvas1:TCanvas;
 ScreenDC:HDC;
begin
  ScreenDC := GetDC(0);
  Canvas1:=TCanvas.Create();
  Canvas1.Handle:=ScreenDC;
  next1(Canvas1, Screen.Width div 2, Screen.Height div 2,100,1,1);
  next1(Canvas1, Screen.Width div 2, Screen.Height div 2,100,1,-1);
  next1(Canvas1, Screen.Width div 2, Screen.Height div 2,100,-1,1);
  ReleaseDC(0,ScreenDC);
  Canvas1.Free;
end;

[DomiNick]

Наконец-то нашёл (во вложении)...

Сообщение от GoodDA

трещины хреновые, но работают

Интересно... Надо попробовать доработать...