2021年5月9日

CnCommon单元之GetDirectory、FormatPath【5】

摘要： function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall; begin if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then SendMe 阅读全文

posted @ 2021-05-09 23:41 YXGust 阅读(137) 评论(0) 推荐(0)

CnCommon单元之FileProperties、OpenDialog【4】

摘要： // 打开文件属性窗口procedure FileProperties(const FName: string); var SEI: SHELLEXECUTEINFO; begin with SEI do begin cbSize := SizeOf(SEI); fMask := SEE_MASK_ 阅读全文

posted @ 2021-05-09 23:22 YXGust 阅读(109) 评论(0) 推荐(0)

导航