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;
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)