|
Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
Delphi 4 Standard
|
1. Mär 2003, 15:13
So sollte es gehen:
Delphi-Quellcode:
ExtractFileDir(paramstr(0))+
'\'+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(ExtractFileName(paramstr(0)))));
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!
|