Cita:
Empezado por Lepe
quizás otro más intuitivo: Application.Exename
|
Tenemos funciones para todo, para cuando la función "mata_a_flanders"
Código Delphi
[-]
TApplication = class(TComponent)
private
...
function GetExeName: string;
...
public
...
property ExeName: string read GetExeName;
function TApplication.GetExeName: string;
begin
Result := ParamStr(0);
end;