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;
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;