unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
saverstr, savershort, saverlong : String;
begin
saverlong := 'C:WindowsPmsaver.scr'; // 새로 등록할 screensaver
SetLength(saverstr, 256);
SetLength(savershort, 256);
// saverlong이 long file name일 수 있으므로 short file name으로 바꾼다
GetShortPathName(PChar(saverlong), PChar(savershort), 256);
// 현재 설치된 screensaver를 구한다
GetPrivateProfileString('boot', 'SCRNSAVE.EXE', 'Missing',
PChar(saverstr), Length(saverstr),
'SYSTEM.INI');
// 현재 설치된것과 설치할것이 틀리면 등록
if UpperCase(saverstr) <> UpperCase(savershort) then
WritePrivateProfileString('boot', 'SCRNSAVE.EXE',
PChar(savershort), 'SYSTEM.INI');
// reboot
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// 이 방법은 제어판/디스플레이/화면보호기 설정화면을 띄워서 등록한다
// 하지만 이 방법은 사용자에게 '확인' 버튼을 누르도록 하므로 투명성이 없다
// C:WindowsPmsaver.scr = 새로 등록할 screensaver
WinExec('rundll32.exe desk.cpl,InstallScreenSaver C:WindowsPmsaver.scr', SW_SHOW);
end;
end. |
|
