DIY一个Flash浏览器

procedure TFormFlashC.ShellTreeViewAddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  if not AFolder.IsFolder then
    if UpperCase(ExtractFileExt(AFolder.PathName)) <> '.SWF' then
      CanAdd := False;
end;   

————————————————————————————————————

procedure TFormFlashC.ShellTreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if not ShellTreeView.SelectedFolder.IsFolder then
    if UpperCase(ExtractFileExt(ShellTreeView.SelectedFolder.PathName)) = '.SWF' then
    begin
      ShockwaveFlash.BGColor := '-1';
      ShockwaveFlash.Movie := ShellTreeView.SelectedFolder.PathName;
    end;
end;

————————————————————————————————————

procedure TFormFlashC.FormResize(Sender: TObject);
begin
  ActiveControl := nil;
  ActiveControl := ShockwaveFlash;
end;   

procedure TFormFlashC.ToolButtonCaptureClick(Sender: TObject);
var
  FilePathName: string;
  Bitmap: TBitmap;
  i: integer;
begin
  FilePathName := ShellTreeView.SelectedFolder.PathName;
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := ShockwaveFlash.Width;
    Bitmap.Height := ShockwaveFlash.Height;
    ShockwaveFlash.PaintTo(Bitmap.Canvas.Handle, 0, 0);
    i := 0;
    while (FileExists(FilePathName + IntToStr(i) + '.bmp')) do
      Inc(i);
    Bitmap.SaveToFile(FilePathName + IntToStr(i) + '.bmp');
  finally
    Bitmap.Free;
  end;
end;

————————————————————————————————————

procedure TFormFlashC.ShellTreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if not ShellTreeView.SelectedFolder.IsFolder then
    if UpperCase(ExtractFileExt(ShellTreeView.SelectedFolder.PathName)) = '.SWF' then
    begin
      ShockwaveFlash.BGColor := '-1';
      ShockwaveFlash.Movie := ShellTreeView.SelectedFolder.PathName;
      ToolButtonCapture.Enabled := True;
    end
    else
      ToolButtonCapture.Enabled := False;
end;

————————————————————————————————————

procedure TFormFlashC.ToolButtonExitClick(Sender: TObject);
begin
  Close;
end;

————————————————————————————————————

procedure TFormFlashC.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MAXIMIZE) then
  begin
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
    ShellTreeView.Visible := False;
    ToolBar.Visible := False;
    Splitter.Visible := False;
    self.WindowState := wsMaximized;
  end
  else
    DefaultHandler(Msg);
end;

————————————————————————————————————