Moin janjan,
da hast Du auch wieder recht
Allerdings:
Es genügt als Längenangabe beim Copy length(paramstr(0)), da copy automatisch aufhört, sobald die maximal mögliche Länge erreicht ist.
Wenn Du dann noch statt ExtractFileDir ExtractFilePath verwendest sparst Du Dir noch ein +'\'.
Delphi-Quellcode:
ExtractFilePath(paramstr(0))+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(paramstr(0))));