你可以使用APPLICATION对象中的EXENAME属性
functionGetExePath：String；
varLastBackSlashPos，Index：Integer；
begin
Result：=Application．ExeName；
forIndex：=1tolength（Result）do
ifResult［Index］=′ι′then
LastBackSlashPos：=Index；
｛subtract1sothatthelastbackslashisnotincluded｝
Result［0］：=chr（LastBackSlashPos－1）；
end；