一个关于delphi中调用win32的菜鸟问题

Question

我的程序如下：
procedure TForm11.Button1Click(Sender: TObject);
var
  F:TSHFILEOPSTRUCT;
begin
  SaveDialog1.Execute;
  IF SaveDialog1.Execute THEN
  BEGIN
    F.Wnd:=Handle;
    F.wFunc:=fo_COPY;
    F.pfrom:=PCHAR(extractfilepath(application.exename)+'date\users\'+ListBox1.Items[ListBox1.ItemIndex]);
    f.pto:=PCHAR(SaveDialog1.FileName);
    f.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
    IF SHFILEOPERATION(F)<>0 THEN
    SHOWMESSAGE('文件拷贝失败！');
  END;
 HALT;
end;
运行是在
F:TSHFILEOPSTRUCT；处报错。
望指点指点。

Answer 1

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Dialogs, StdCtrls,imm,shellAPI;//引用shellAPI单元