تابعی خفن برای گرفتن مشخصات فایل در ویندوز

procedure ShowFileProperties(const filename: String);
var
    sei: TShellExecuteinfo;
begin
    FillChar(sei,sizeof(sei),0);
    sei.cbSize := sizeof(sei);
    sei.lpFile := Pchar(filename);
    sei.lpVerb := 'properties';
    sei.fMask := SEE_MASK_INVOKEIDLIST;
    ShellExecuteEx(@sei);
end;