www.programlama.com dan alınan bir modül daha;
Panel veya Buton Üzerinde Screen Saver
Formunuzun üzerine bir buton (Button1) birde panel (Panel1) yerleştirin. Daha sonra Button1'in OnClick eventine aşağıdaki kodu yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
FSaverPath : String;
StartupInfo : TStartupInfo;
ProcessInformation : TProcessInformation;
begin
FSaverPath:='C:Winntsystem32sspipes.scr';
StartupInfo.cb := sizeOf(TStartupInfo);
FillChar(StartupInfo, sizeOf(TStartupInfo), #0);
FillChar(ProcessInformation, sizeOf(TProcessInformation), #0);
CreateProcess(nil, PChar(FSaverPath + ' /p ' +IntToStr(Panel1.Handle)),
nil, nil, false, 0, nil, nil,StartupInfo, ProcessInformation);
aşağıdaki kod bloğuda ekran koruyucunun özellikler sayfasını açar...
if (CreateProcess(nil, PChar(FSaverPath + ' /c'),nil, nil, false, 0, nil, nil,
StartupInfo, ProcessInformation)) then
ShowMessage('Evet') Else ShowMessage('Hayır');
end;