Moin Christian,
Zitat von
Christian Seehase:
Delphi-Quellcode:
ExtractFilePath(paramstr(0))+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(paramstr(0))));
Damit geht es. Natürlich wollte ich von anfang an das der erste Buchstabe gross ist, sieht ja sonst auch blöd aus.
Aber es klappt wunderbar. Danke Dir!
Grüsse, Daniel
