Código Delphi [-] ShowMessage(ExtractFilePath(ParamStr(0)));
ShowMessage(ExtractFilePath(ParamStr(0)));