[killerkill]

я сделал!
вот код:


var
derectoriya:string;
begin

derectoriya:=application.ExeName;
Delete(derectoriya,length(application.ExeName)-12,length(application.ExeName));
showMessage(derectoriya);

// 12 - потому что название в месте с .exe равно 12