mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
29 lines
512 B
ObjectPascal
29 lines
512 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) } ));
|
|
|
|
finalization
|
|
|
|
end.
|