mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
22 lines
387 B
ObjectPascal
22 lines
387 B
ObjectPascal
unit uGlobalVars;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
var
|
|
gAppName, gAppPath, gAppExe: string;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
|
|
gAppExe := ExtractFileName(GetModuleName(HInstance) {ParamStr(0)});
|
|
gAppName := ChangeFileExt(gAppExe, '');
|
|
gAppPath := IncludeTrailingPathDelimiter(ExtractFilePath(GetModuleName(HInstance) {ParamStr(0)}));
|
|
|
|
finalization
|
|
|
|
end.
|