Delphi Pubic Function-优快云博客

本文介绍了两个实用的 Delphi 函数：获取文件大小并转换为字符串显示的 GetFileSizeString 函数，以及用于启动外部程序并等待其结束的 WinExecAndWait 函数。这些函数能够帮助开发者更高效地进行文件管理和进程控制。

function GetFileSizeString(const pFileName: String):String; var iFileSize: Int64; begin Result := '0'; iFileSize := FileSizeByName(pFileName); Result := IntToStr(iFileSize); end; function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD; var cAppName: array[0..512] of char; cCurDir: array[0..255] of char; strWorkDir: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin StrPCopy(cAppName, strFileName); GetDir(0, strWorkDir); StrPCopy(cCurDir, strWorkDir); FillChar(StartupInfo, Sizeof(StartupInfo), #0); StartupInfo.cb := SizeOf(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := uCmdShow; if not CreateProcess(nil, cAppName, nil, nil, true, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := INFINITE else begin WaitforSingleObject(ProcessInfo.hProcess, INFINITE); GetExitCodeProcess(ProcessInfo.hProcess, Result); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); end; end;