屏幕保护程序的预览功能

program Project1; uses
Forms,
SysUtils,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
Hwnd : Cardinal;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
if ParamStr(1) = '/p' then
begin
Hwnd := StrToInt(ParamStr(2));
Form1.ParentWindow := Hwnd;
Form1.Visible := True;
form1.Left := 0;
form1.Top := 0;
end;
Application.Run;
end.