mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
32 lines
597 B
ObjectPascal
32 lines
597 B
ObjectPascal
unit uGlobalVars;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
var
|
|
gAppName, gAppPath, gAppExe: string;
|
|
|
|
implementation
|
|
|
|
uses
|
|
ioutils;
|
|
|
|
initialization
|
|
|
|
gAppExe := ExtractFileName(GetModuleName(HInstance) { ParamStr(0) } );
|
|
gAppName := ChangeFileExt(gAppExe, '');
|
|
if not IsConsole then
|
|
gAppPath := IncludeTrailingPathDelimiter(TPath.GetPublicPath)
|
|
else
|
|
gAppPath := IncludeTrailingPathDelimiter
|
|
(ExtractFilePath(GetModuleName(HInstance) { ParamStr(0) } ));
|
|
// if gAppPAth.StartsWith('\\?\') then
|
|
// gAppPath := gAppPath.Substring(4);
|
|
// \\?\
|
|
|
|
finalization
|
|
|
|
end.
|