function GetFileName: string; var DLLFile: string[255]; len: integer; begin len := GetModuleFileName(HInstance, @DLLFile[1], SizeOf(DLLFile)); if len>0 then Result := Copy(DLLFile,1,len) else Result := ''; end;