ну так:
Код:
s.LoadFromFile(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+ 'name.ext');
либо:
Код:
unit Forms;
TApplication = class(TComponent)
public
property ExeName: string read GetExeName;
function TApplication.GetExeName: string;
begin
Result := ParamStr(0);
end; |