我们知道在win32中有SHFlieOpStruct这个结构体，为什么在delphi中要这样声明的呢？var Opstuc:TSHFlieOpStruct

Question

我们知道在win32中有SHFlieOpStruct这个结构体，为什么在delphi中要这样声明的呢？var Opstuc:TSHFlieOpStruct
为什么在SHFlieOpStruct中要多个字母T呢。
谢谢

Answer 1

_SHFILEOPSTRUCTA = packed record
    Wnd: HWND;
    wFunc: UINT;
    pFrom: PAnsiChar;
    pTo: PAnsiChar;
    fFlags: FILEOP_FLAGS;
    fAnyOperationsAborted: BOOL;
    hNameMappings: Pointer;
    lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }
  end;SHFILEOPSTRUCTA = _SHFILEOPSTRUCTA;
SHFILEOPSTRUCT = SHFILEOPSTRUCTA;TSHFileOpStructA = _SHFILEOPSTRUCTA;
TSHFileOpStruct = TSHFileOpStructA;所以TSHFlieOpStruct和SHFlieOpStruct是完全一样的类型。加“T”表示类型名字Object Pascal默认规则。————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————