отображение картинки

[scriptolog]

Начал изучать Delphi для написания курсовой.
Частью курсовой будет "программа прикол"
имитирующая появление синего экрана смерти.

Алгоритм действий программы такой:
1) запуск программы
видимого окна нет - видна только в процессах
2) в интервал от 1 до 5 минут (рандомно) запускается следующая часть кода:
A) на экран (рандомно) выводится 1 из 10 картинок синего экрана смерти развёрнутая на весь экран.
B) блокируются клавиатура и мышь.
C) программно пакуется и отключается системный жёсткий диск (чтобы его не повредить)
D) после чего происходит перезагрузка (как при нажатии кнопки “RESET”)

procedure TForm1.Button1Click(Sender: TObject) ; 
var 
lib: THandle; 
begin 
a := nil; 
if LoadLibrary(PChar(dllName)) = 0 then exit; 
lib := GetModuleHandle(PChar(dllName)) ; 
if lib <> 0 then 
begin 
a := GetProcAddress(lib, PChar(funcName)) ; 
if a <> nil then Result := true; 
end; 
var 
BlockInput : function(Block: BOOL): BOOL; stdcall; 
begin 
if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then 
begin 
BlockInput(true); 
Sleep(90000) ; 
BlockInput(false); 
end; 
end.

ошибками плюётся

[Stilet]

ошибками плюётся

Уклоняйся, а потом хуком снизу )

[scriptolog]

а серьёзно?

[Stilet]

а серьёзно?

А если серьезно - то можно подождать когда отплюет весь яд, а потом за яйца схватить

ошибками плюётся

Ну вот как ты думаешь просто народу догадаться чем оно в тебя плюется - чугунием расплавленным али вольфрамоникилем?
Текст ошибки где?
Строки на которых ошибки вылезают где?
Отладчиком почему не проходишь программу?

[scriptolog]

а как заставить картинку меняться?

[Stilet]

А что именно должно меняться на картинке?

[scriptolog]

у меня delphi 7 стоит
куча каких по панелек менюшек
ничего неработает
просто код набрать недостсточно
после ассемблера и турбо паскаля какая то неведомая ...

а есть вариант просто код набирать ?

[Stilet]

Неа... Разве что создашь консольное приложение и уберешь директиву {$APPTYPE CONSOLE}, и то не гарантия.
Не. Нужно знать ЯВУ, иначе швах.

[scriptolog]

картинок 10 штук
а 1 из 10 картинок (рандомный выбор)
должна открываться на весь монитор имитируя бсод

[Stilet]

картинок 10 штук

Ну либо в ImageList их сразу вставить в дизайне, либо держать рядом с прогой в каталоге, и загружать, предварительно получив список файлов. Или же просто именовать картинки так чтоб и имени были числа, которые можно вычислить случайно в неком диапазоне.